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abstract 


Bie symbolic network analysis program generates network 
functions such as voltage gain, current gain, transconductance 
and transresistance etc. of a two port network. These network 
functions are the ratios of two polynomials which are 
functions of the complex frequency S containing different 
symbols such as R,L or C etc. as the coefficients. This 
program was initially developed by Rr.B.M.Iin and G-.E. Aid arson. 
It has been modified to be able to run it in UBM 7044 and 
IBM 1800. Additional facilities of multiinput, multioutput 
and frequency response plotting h a v e been incorporated. The 
frequency response plotting facility has been used to 
demonstrate the utility of the program for large scale 
sensitivity analysis. 
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INTRODUCTION 


1 . 1 Introduction 

The great majority of computer aided linear* circuit 
analysis programs belong to the class of numerical programs 
i.e. output is some numerical value. Such is the case with 
well known programs like ECU’ II ( Electronic circuit 
analysis program ), SOAP, ANP 3, BEL AC etc. But a few 
programs like ANP1^\ NASAP^^ and CORNAP^'^ have been 
developed which can generate network functions as rational 
functions of ’ S’ . The program ’SNAP* ( Symbolic network- 
analysis program was developed by Dr. P.M.Iin and 

G-.E. Alderson for generating symbolic network functions* By 
a symbolic network function we mean rational functions like 


V 4 . 
out 

7. ' 

m 



1st ari 
in 


T 

out 

7 . 

an 


where 7 0U-fc and I ^ are the 


output variables, and I^ n are input variables associated 

with a two port network. These are ratios of the two 
polynomials in ’S’ containing different symbols as coefficients. 
Por example, 

V out = 1+2R 1 GS + 

¥ in 1+C(R 1 +2R 2 )S+C 2 R 1 R 2 S 2 


( 1 . 1 ) 
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1 *2 Importance of Symbolic Network Analysis Program ( SliAP) 

The importance of symbolic analysis is due to the following points 
1* Insight 

2. Improvement of accuracy of claculation 

3. Sensitivity analysis 

4. large scale parameter variation analysis 

5# Iterative piecewise linear analysis of resistive networks 
Insight 

3?or a small network with all elements in the symbolic 
form or for a large network with only a few of the network 
elements represented in symbolic form, the network function 
would be a relatively simple one. Such an expression can 
provide better insight than numerical solutions. Consider a 
simple case of a common collector transistor stage. The 
voltage gain of such a transistor stage under the assumption 
that r tends to infinity can be shown to be 






xn 


<l-“) r b +r e + R ] 


( 1 . 2 ) 


where a, r g , r^ and r c are the T parameters of the 
transistor and is the load resistance. By inspection of 
the above symbolic network function it is clear that voltage 
gain (i^.) is positive and less than one and very close to one, 
provided that R^ is much greater than [ (l-a)r^+r e ]« Without a 
symbolic network function the above conclusion can only be 
reached after the analysis of many numerical cases and even 
after that some degree of uncertainty exists. 
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Improvement of Accuracy of Calculations 

In the analysis of electrical networks using digital 
computers, there are several important sources of numerical 
errors. Jmo ng these are the round off error and the loss of 
significance error. The former is due to finite word length 
of the machine and the latter occurs during floating point 
addition of two numbers of opposite sign but comparable 
magnitude . By the proper use of symbolic parameters, the 
accuracy of the final result of the calculations can be 
greatly improved. 

To demonstrate how a symbolic pro gran can be used to 
effectively control round off error, consider the differen- 


tial amplifier shown in figure 1.1 and 1.2. In figure 1.2 the 
branches and nodes are numbered. 


The network function — is given by 


R 1 R 3 A 1 r i R 3% r i a i R 5 R ! A 2 R 1 A 2 

lut ( a E> V + " R E *2 ’ ( V % + 7T7" 


R-. Sr, R-»R~ R-,R~ 

, JjL. .,,±12 , JljL 

p -r -p i t 

2 R 2 R b R 2 R b 


R-jR« R*"»R~ 

+ -LL + JLJL 

R 2 R B R 2 R B 


let ig = R i = 5K, Rg = = 10E, Rj, = 25 ohms 


Evaluating the numerator and the denominator by summing 


the terms in the order given in the above sets keeping each 
number generated to 8 significant digits, we get 




1IIIB 
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i^m 


mm 


e 1.1 Differentia! amplifier 
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Numerator 


and. 

Denominator 

mas ^ | 

v in js=0 


= A x [ 5.3333333 - 5.3333333 + 5.3333333 

-0.13333333 - 5.3333333 + 0.13333333 ] 
= 3.3x 10“ 8 A 1 

= 1335 

3.3xl0“ 8 
= ■ 

1335 


which is incorrect, since numerator is zero. Although the 
above transfer function was derived using Signal Flow Graph 
( SFG) theory, round off errors which cause erroneous results 
can occur in any computer program restricted, to numerical 
evaluation and these are generally very difficult to predict 
or control. Because round off error enhancement in the 
evaluation of network functions often occurs as a result of 
widely seperated values of some of the network elements, one 
method of error control would he to leave such element values 
in symbolic form. This technique can be applied to the above 
example by noting that R^ should be kept as a symbol since 
its value is considerably less than the other resistance 
values. Thus keeping R-g as a symbol and revaluating the 
numerator gives 



v in - S=0 

(NOTE: For details of round-off error see Appendix A) 
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Sensitivity Analysis 

The sensitivity of system performance with respect to 
changes in component characteristic is a very important 
consideration in the design of systems. Sensitivity analysis 
is carried out in numerical programs "by following a*F one of the 
wellknown methods, like the adjoint network method. But use 
of symbolic network functions for sensitivity analysis gives 
a good insight to isolate the important parameters to which 
the network response is more sensitive. Symbolic network 
functions also give exact solutions. 

Por example, the voltage gain of a common emitter tran- 
sistor stage has been given by equation 1.2. The sensitivity 
of Ay with respect to a is obtained by knowing 


ik. 

6a 


fir r, 
1 b 


[ (l-ajr^+r^kj 2 


(1.3) 




This expression gives the exact solution for -t~- ir. 
terms of all the parameters like etc* 

Similarly sensitivity with respect to other parameters 


can be calculated. Higher order sensitivities such as 
» may be obtained by repeated differentiation. 


large Scale Parameter Variation Analysis 

The sensitivity function of the type given by equation 
1.3 is applicable only when changes in systaa parameters are 
of incremental nature. When relatively large changes occur 
in a parameter, that parameter is put in the symbol form and 
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network function is found by putting different values of that 
parameter. 

For example, if the voltage gain A^. of common emitter 
transistor amplifier is to be calculated for different values 

of R^, let R^ take successive values such as IE, 2K 10E. 

Then ten analysis of the complete network would be necessary 
for a numerical program. But if gain function is derived with 
R^ kept as a symbol, as given in equation 1.2, it is only 
necessary to evaluate the gain function ten times which is a 
much simpler task. 

Iterative Piecewise linear Analysis of Resistive Nonlinear 
Networks 

A part of this powerful analysis technique requires the 
solution of a resistive linear network where some resistances 
and some d. c. sources are kept in symbol form. 

For example consider the network shown in figurg 1.3 with 
nonlinear resistors R-^ and R^ characterized respectively by 
the i-v curves shown in figure 1.4 and 1.5. We want to find 
out currents in resistors R-^ and Rg. 

By applying the iterative piecewise linear method, we 
replaced the two nonlinear resistors by their iterative Thevenin 
equivalent circuits as shown in figure 1.6. Hie nonlinear 
resistors take different values of voltage (E) and resistance 
(R) in three different segments as given by table 1*1. 

By symbolic network analysis program, we get currents in 
resistors R^ and R£ as 1^ and ^ respectively. 
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T'ABLE 1.1 

MODEL PARH1ET5R3 EOR Rj and R ? 


Resistor Rj j 

X 

Segment k | 

lc~ j 

1 , ji . | 

k 0 ! 

; Interval of 

Definition 


1 

-1 

! 

i 

~ 6 : 

; ^(i) = (- 6,cd ) 

-^(v) = (- co ,0) 

R 1 

2 

1 1 

3 | 

| ; 

2 

^(i) = (- 6,3 ) 

2 L- l (v) = (0,3 ) 


3 

! 

-1 

, ■ j 

6 

J^Ci) = (- oo , 3) 

5 D x (v) = ( 3»oo ) 


1 

i 

-2 

12 

-jD^i) = (4 , cd ) 

^ (v) = (- qd ,4) 


2 

2 

■! 

. 

i 

-4 

2 D 2 (i) = (1,4 ) 

2 D 2 (v) = (- 2,4) 


3 

“4 

i : ■ ; ' 

1 

2 

„D 2 (i) = (- oo ,1) 

^(v) = (- 2,oo ) 
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7- (-| + 2^2 ) K S 1 - K B 2 

i ~ ' I ' ~ r ( I « 4- ) 

^~ + -1- K fi l - 2=~ K R 2 + 2^1 K S 2 

I 2 = [(- 2 -+£ E l)l 1 +K S l] (1.5) 

For different segment combinations we will get different 
values of 1-^ and Ig. Three different segments of each resistor 
R-j_ and give 9 combinations. Use of numerical program 
requires nine computer runs while by symbolic network analysis 
program it can be solved in one computer run and gives 1^ and 
Ig as equations 1.4 and 1.5 respectively. Then current at 
different values of B-p E 2 , R 1 and R 2 can be solved, which 

is a much, simpler task. 

I * 3 Extension of Symbolic Network Analysis Program (SHIP ) 

In order to develop a facility for obtaining symbolic 
network functions for complicated networks with the help of a 
computer, the program developed by Dr. P.M.Iin at the Purdue 
University was used. Though a copy of this program was 
available, it could not be directly used, since certain changes 
had to be made in accordance with the requirements of the 
computing facility at I.I.T. Ran pur. 

Certain additional facilities are incorporated into the 
program to make it more versatile. These facilities are 
multi input, multi output and frequenqy response plotting. 

IBM 1800 version of SHAP has also been developed so that 
the users can run their programs themselves and can do modi- 
fication in data cards wherever required. Certain changes 
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had to be done to accommodate SNAP in IBM 1800. lew facilities 
of handling multiinputs, multioutputs and frequency response 
plotting have been incorporated here also, large scale 
sensitivity analysis is also added to the IBM 1800 version of 
SNAP. 

In multiinput, one can have more than one independent 
source in the network. It is generally useful for the 
analysis of multiport networks. For example the two port 

t . 

parameter matrices of a given network can be calculated. 

In multi output more than one network function can be 
solved at a time. For example if we take I^ as input and, 

Ig and as outputs in one computer run, we can find out 
*2 V 1 

? — and * — etc., that is current gain as well as input 
1 X 1 

impedance. It is a more economical procedure and it also 
saves users time. 

In frequency response plotting we get the frequency 
response of the network. In large scale sensitivity analysis, 
sensitivity of the network functions with respect to different 
parameters, when parameter changes are large, can be 
calculated. 
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APP B2DIX A 

Sl^SSTIO If FO R R BD UGI N( 3 _RO UHD~ 0 FF__ E RROR 

fflais program can further be modified to take cane of the 

reduction of round-off error for better result, The round-off 

error can be reduced by storing ah the coefficients of a 

particular term in an array and then ordering them either in 

an accending order or in a decending order, Then this array 

is added. This procedure gives the result to a better 

accuracy than the earlier one. 

For example, let the coefficients of a term be 
8 8 

1 + 10 - 10 - 1. let the machine allow seven significant 

8 

digits, 1 and 10 are stored as 

1 = .10000003+01 

10 8 = .10000003+09 

o 

Then 1 + 10 will results in 
. 1000000 E+0 9. 

Thus 1 + 10® - 10 8 results in zero 

how 1 + 10® - 10® - 1 will result - 1 i.e. 

-.10000003+01 

which is not correct. But if these coefficient are ordered 

8 ■ 0 " ' 

in an accending order as 1 - 1 + 10 - 10 then the result 

will be zero, which is correct. 
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In some cases the round-off error can be reduced by- 
double precision arithmetic. In double precision arithmetic 
i±te number of significant digits are twice as many as in the 
case of single precision arithmetic. 

Ihe ordering of the array is more reliable than the 
use of double precision arithmetic, because the round-off 
error in case of double precision arithmetic does not reduce 
under all circumstances. QTnis depends on the type of the 
problem and the number of significant digits of the machine, 
whereas the ordering of the array gives the result correct 
upto the number of significant digits of the machine. 
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II BRIEF DESCRIPTION OF SNAP (SYMBOLIC NETWORK ANALYSIS 
PRO OR AM) ALGORITHM 

II. 1 Introduction 

The network function is derived by making use of the well 
known Signal Flow Graph ( 3FG) technique ^ . The following 

formula due to Mason gives the network function from the SFG. 

m A 

out pit <' P. / \ . 

Network function = — = — = 

Input i=l /\ 

where = 1 + ^2. (-1)°' L^ j is the determinant of 

c iL 9 

the SFG of the network. 

•Mo 

Lg j is the product of the transmitt ances of k set of 
nontouching loops of order J. An n^ 1 order nontouching loop 
is defined as the set of n nontouching loops. 

P^ is the transmittance product of the i u path between the 
output and the input. 

is the partial determinant obtained from hlk after removal 

-j-’U 

of all loops intersecting the i path between the output and 

the input. The SFG which is used here is 5 compact SFG’. 

# 

The compact SFG is the representation of the all the 
cutset and loop equations. This SFG is generated from the 
topological structure of the network. First a tree is selected 
for the network, then the SFG is formed to represent all cutset 
and loop equations. This procedure is given In details 
later « 
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The compact SPG of the network is modified to the 'closed 
SPG-' by adding a branch of symbolic weight 1 PB’ from the output 
to the input node. 'The purpose of introducing the ’closed SPG' 
is because all orders of nontouching loops need be found as 


opposed to the evaluation of Mason’s formula which requires 


enumeration of paths as well as loops. 

Let be the determinant of the ’closed SPG’ . It is 

then noted that since i=1 is the set of all paths from 

the input to the output, the loops present in the closed SPG 
and not present in the original compact SPG will precisely 

p ^ m 

be given by v (PB) P. { . Since the Path PB contains 

m v_ i j i=1 

— 1 

only the input and output nodes which in turn, are present in 

every path P^, i=l, 2 m, it follows that the nonintersecting 

loop combinations, that do not touch the loops (PB) P^ 

i=l,2 m, will be precisely those combinations which do not 

touch the path P ± , 1=1,2 m. It follows that 



m 

(FB) <; r /\ + /\ 

i=l 1 1 


Thus, the network function can be found by simply 
sorting the terms of the determinant of the’ closed SPG’. 

II. 2 Pormulating the SPG 

II. 2.1 Input Bata Required 

A SPG is generated by SHAP from data specifying the 
topological structure of the network, the input output varia- 
bles and the characteristics of each network branch. 
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Hie input to the network must he a single independent 
source (current or voltage) and the output required must; he 
the voltage or current associated with a network branch or 
the voltage between any two nodes of the network. 

for example, consider the common emitter transistor 
amplifier as shown in figure II .1 and figure II. 2 { in figure 
II. 2 the branches and nodes are numbered), network data 
for it is given by table II. 1. 

II. 2. 2 finding a Tree 

The formulation of compact SFG- starts with the choice of 
a network tree. The selection of network branches to be used 
in the tree is made as follows. 

Independent voltage sources and controlled voltage 

sources are the first ones included in the tree, fhen cane 

the passive RLC elements in any order. In choosing (J+l) 

branch for the tree the undirected graph formed by J 

branches already selected is tested to determine whether a 

Path exists between the two terminal nodes of the ( J+l) 

branch. If so, the branch under consideration is disqualified. 

If not, the (J+l) branch Is added to the tree. Let n be 

the number of nodes of the network graph. When (n-1) branches 

are successfully chosen by the above process, we have a tree. 

Selection of optimum tree is referred in the Barbay and 

( 2 ) 

Zobrist v ' paper. 

For example, for the network of figure II. 1 and II. 2, if 
the above rule is followed, the tree selected is as shown in 




Figure II 


ijuivalent circuit of common emitter transistor amplifier stage 


Figure' 11,2 Circuit of figure 

: . 
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table II. 1 
hit wore data 


Branch. 

'Type 

Branch 
numb er 

Initial 

node 

Terminal 

node 

Symbol 

V alue 

I 

1 

1 

2 

IS 


R 

2 

2 

1 

RS 


R 

3 

2 

3 

SI 

IxlO 2 

R 

4 

3 

1 

R2 

1x10 5 

R 

5 

3 

4 

R5 

4x10 3 

0 

6 

3 

4 

CC 

3xl0~ 22 

R 

7 

4 

1 

RL 


VO 

8 

4 

1 

GvI =S 

5xl0~ 2 


Control 


4 
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figure II. 3 . 

The tree contains branches 2,3,5 and the links (those 
branches -which are not in tree) are 1,4, 6, 7, 8. 

II. 2. 3 Formulation of Compact SFG- 

A compact SFGr has node variables consisting of only tree 
branch voltages and link currents. Additional nodes are 
needed for control sources or for the output variable. 

The compact SFG- is generated as follows 
1. For each link 1^ , the unique fundamental circuit 

containing branches b^ , i=l,2 m is found. The sets of 

the compact SFG branches can then be created according to 
the following rules. 

(a) For each passive branch in the tree branch set b^, 

i=l f 2 m, a directed branch in the SFG is formed from 

node I lk to node with weight equal to the impedance 
of branch b^, prefixed with the proper sign (Positive 
if the directions of 1^. and concur in and negative 
otherwise) . 

(b) If the link 1^ is a Passive branch, a directed branch in 

the SFGr is formed from each node V‘- bi , i=l r 2 m to node 

1 having weight equal to the admittance of link 1^., 
with the proper sign ( negative if the directions of 1^. 
and b. concur in C. , positive otherwise ) . 

X K. 



24 


2. If any of the four types of controlled sources are 
present, a directed branch is created in the 8FG- from 
the controlling variable to the controlled sources having 
weight equal to the constant of proportionality ( g m » 
beta etc). If the controlling variable is a link voltage 
or a tree branch current, one more node is added to 
represent this controlling variable X (e.g. X g in 
figure II. 4 ). X is then expressed in terms of the tree 
branch voltage or link current through a simple immitance 
relation. 

3. If the desired output Y is neither a tree branch voltage 
nor a link current, then one node is added to the SFG to 
represent Y. Y is then expressed in terms of tree branch 
voltage or link current through a simple immitance 
relationship. 

4. Finally, the SFG is closed by adding a branch with a 
symbolic weight FB, directed from the output to the input 
node. 

For example the SFG of the common emitter transistor 
amplifier of figure II. 1 and II. 2 for the tree branches 
2,3,5 is given in figure II. 4 and table II. 2 gives the data 
associated with figure 11,4. 

II. 3 Manipulating SFG Branch ¥eights 

From here onwards the 'compact closed* SFG- will be 
referred as SFG-. Each branch weight in the SFG- is of the form 
(constant, symbol. S n ). 
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TABES II .2 
spg am 


I ni ti al 
lode 

Terminal 

lode 

Exponent 
of 3 

•Branch 

Value 

Brandi 
Symbo 1 

7 

1 

0 

1 

13 

1 

2 

0 

1 

as 

3 

4 

0 

lxlO~ 5 

- 

4 

3 

0 

lxlO 2 

~ 

2 

4 

0 

lxlO~ 3 

- 

4 

2 

0 

-1 

RS 

5 

6 

1 

—1? 

3x10 

- 

6 

5 

0 

4xl0 6 

- 

5 

7 

0 

-1 

Vr l 

7 

5 

0 

4xl0 6 

- 

3 

7 

0 

-1 

VR t 

7 

3 

0 

lxlO 2 

- 

2 

7 

0 

1 


7 

2 

0 

-1 

HS 

4 

9 

0 

1x10^ 

- 

9 

8 

0 

5xl0~ 2 

- 

8 

5 

0 

4x10^ 

- 

8 

3 

0 

lxlO 2 

- 

8 

2 

0 

-1 

RS 



27 


If a branch has an initial node x^ and a final node 
then the three parameters associated with this branch are 
C (x^,x_£ ) = Constant 

S ) = Symbol 

B (x^,Xj ) = Exponent of S. 

These completely define the weight of the branch. After 
a loop or a set of nontouching loops has been found, it is 

desirable to combine the weight parameters of each branch in 

the loop set to form a composite loop set weight. The loop 

set constant may be easily foimed by taking the product of the 

constant associated with each branch. Similarly, the loop set 

exponent parameter is readily formed by summing the exponent 

assigned to each branch. However, because computers are not 

particularly adept at symbol manipulation, it is inefficient 

with respect to both time and storage to form directly a 
composite loop set symbol. A much better technique is to 
convert each branch symbol into a numeric code. These codes 
are assigned as follows. Bach distinct symbol, of the SPG, 
is stored in the array S ( -J) and assigned a code B J There B 

is some base § 2,4 2 m ^ . How a SPG- branch having initial 

node x^ and final node x^ which contains the symbol S(n) 
will have the code 

E (x j .,x f ) = B n assigned . 

3he real' value of this coding technique stems from the 
fact that the composite loop set code formed by summing the 
codes representing the individual branch symbol can be 
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uniquiely decoded provided the number of identical symbols 
combine into any code is less than 3. 

Ibr example, in figure II. 4 consider the loops formed 
by the nodes and Y 2 ~ I 4 — Y 2 « Ihe weights of these 

loops are found as follows 
For loop Vj-Iy-Yj 

P 

Loop set constant = (- l)x 10 

Loop set power = 0 

For loop V 2 -I 4~ V 2 

Loop set constant = ( 10“^) x (- 1) 

Loop set power = 0 

lo find loop set code, ah array of distinct symbols of 
the SFG and their corresponding codes must be set up 


Symbol Array 


Code 

No symbol 


0 

S (1) = 

F3 

(4) 1 

S (2) = 

R s 

— ^ (4) 

S (3) = 

— 

> (4) 


Loop set code for loop Y^-I 7 ~ Y^ 

= k(y 3 ,i 7 ) + e(i 7 ,v 3 ) 

= 16+0 


Loop set code for loop 

= e(v 2 # i 4 ) + e(i 4 ,v 2 ) 

= 0+4 

So the weight of loop V-I^-V, and Y 0 -I -V- ace respectively 

0(0 £ 4 c. 

-10^ x — ijr~ and -10*”^x Rg 



These loops do not touch. } therefore the composite weight of 
second order nontouching loop formed by loops and 

is as follows. 

2 — ^ —1 

Composite loop set constant = -10 x(~10 J ) = (10) 

Composite loop set S power = 0 

Composite loop set code = 15 + 4 = 20 

Bow to decode the loop set oode 20, it can be written as 
12 1 

(4)- 1, + (4) = R n x —k — which is indeed the symbol associated 

S 

with the loop immitance product. Therefore, 
composite loop set weight = (10)"' 1 X IU x — 

Bach loop set contributes to a term in the network 
function. As each loop set is generated and coded, it is 
compared with existing terms. If a term with same symbol code 
and power of S exists, then constant of the term is updated by 
adding to it the constant of the new loop set otherwise a new- 
term is created. This process of coding and decoding of 
symbols is an important step towards reducing the storage 
requirements. 

After all loop sets hare been found, the transfer function 
is complete and it remains only to transform the symbol code 
of each term into its corresponding symbol set. 

II. 4 Generating First Order Loops 

let the nodes of the SFG be labelled 1,2 All first 

order loops which contain node J ( J=1 initially) can be found 
by conceptually splittirg node J into two nodes, one node 
containing all inooming branches and the other containing all 
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outgoing branches and then enumerating all paths between these 
two nodes. Ill branches going into node J are then removed 
and the process is repeated for node J+l. This procedure will 
produce all circuits with no duplication. 

Consider the SPG- in figure II. 4. She topological 
structure of the SPG- can be completely described by a routing 
table ( table II. 3), where the entries in the J row are the 
set of all nodes of distance one from node J. Bae entries of 
each row are made to decrease as the column subscript m 
increases. This routing table is used for obtaining all 
circuits in the SFG-. Since the rows are arranged in the order 
of the numbering of the nodes, once all the circuits through 
a given node have been found, that row will be eliminated 
while obtaining the circuit through the rest of the nodes. In 
addition whenever the number of the node already considered 
appears as the right most entry , that entry is also eliminated. 
This procedure eliminates duplication of circuits. As an 
example in using the routing table 11,3* the following four 
circuits can easily be shown to form the complete set of 
circuits through the node 1, 

1 - 2 - 7 - 1 

1 - 2 — 4-9 — 8 - 5-7 — 1 
1 - 2 - 4 - 9 - 8 - 3 - 7-1 
1 - 2-4 — 3-7 -1 

While finding circuit through a node J, loops formed out 
of the nodes appearing in these circuits should be avoided. 
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R(J,M) = 


I’ABLB 1 1. 3 
ROUTIBS MLE 
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For example, while finding the circuit through node 1, if we 
proceed as 1 to 2, 2 to 7, 7 to 5 , 5 to 6 and 6 to 5, we see 

that nodes 5 and 6 form a loop. So the path is retraced to 

node 7 and from here we proceed to node 3. -Again we find a 

loop. So finally we go back to node 1 from 7. Thus we get 

a circuit 1-2 -7-1. In order to find the exi stance of a loop 
instead of comparing the prospective node to each node 
already included in the path, it is much more efficient to 
define the binary sequence S of lergth equal to the number of 
nodes in the SFG- as follows 


S = X(H) X(H-l) X( 1) where II is the number of 

nodes in the SFG- 

Function X is defined as 

i 1 if I is contained in the Path node sequence 
X(I) = ] 

I 0 if I is not contained in the path node seque- 
' w ‘ nee 

Another binary sequence for the node ( J) under considera- 
tion is defined as 

3(J) = X(1T) X(l) 

where 

\ 0 for I J 
X(I) = \ 

& 1 for I = d 

Do see whether node J is present in the path node 
sequence an 'AM)’ operation is performed between sequences S 
and S(J);if the result is zero then node J is not present in 
the path node sequence S, otherwise it is present. 
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Por example, in the above example, if we proceed as 
1 to 2 , 2 to 7, 7 to 5 , 5 to 6, then path node sequence 
considered till now is 1-2-7 -5-6 which gives 
S = 001110011 

and to find next node of the Path if we proceed as 6 to 5, then 
node under consideration is 5, then 
S{5) = 000010000 

and to see whether this node is qualified node or not we 
perform ’AMD 1 operation as 

S. AM. S(J) = 000010000 jL 0 

shows that node 5 is already present in the path node sequence 
and it will form a loop. Therefore this node is disqualified. 

Additional insight may he obtained by viewing the path 
finding technique graphically . That is the process by which 
Paths generated can be observed by applying the following 
two rules directly to the SPG 

( 1) let node J be the last node added to the path node 

sequence (initially J = input node). To select the next 
node , traverse through that branch, connected to node J 
that goes to the highest numbered node satisfying both the 
following requirements 

(a) We did not back up from this node while applying rule 2 
and 

(b) This node is not included in path node sequence. 

Repeat this process untill the output node is readied , 

then store the node sequence and go to rule (2) or until no 
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new node oan be found to satisfy (a) and (b) ( then go to 
rule (2)). 

(2) Back up along the path just found (this is always possible 
unless we are at the input node in which case all paths 
have been found) until a new route can be taken 
according to rule 1. 

for example, the heavy lines of figure II. 5 show the 
circuit which results from applying rule 1 when circuit 
through node 1 is considered. Generating a second circuit 
requires backtracking to node 8 , then continuing the sequence 
3 "7-1. Hie graphical technique for listing all paths can be 
helpful when solving problems by hand. 

II. 5 Generating Nontouching loops of Order Two or More 

This part will generally require the most time unless the 
network contains many distinct symbols. It is therefore 
necessary to exercise considerable care in developing an 
algorithm for finding all orders of nontouching loops. 

In general to find loop sets of all orders, some compa- 
rison between the node sequences of the different loops must 
be made. A brute force technique is simply to store all the 
node sequences of the first-order loops and to find non- 
touching loops by direct comparison of the nodes contained in 
the loop. Of course, storage is also needed to indicate the 
loops contained in some of the higher order combination, but 
this storage is necessary even in more efficient techniques 
which follow. 






Figure 'll .5, , $>FG indie 
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Tb.e above method is improved considerably if instead of 
directly comparirg the nodes of loops A aid 3 to determine if 
they touch, a binary array 3(1), associated with each first 
order loop, of length equal to the number of nodes in the 5FG- 

I s ^ nodes in loop Ay 
other sis e 


is defined as 

. 4*' 

\ 

| 1 

3(1) =4 

L° 


and then tested as follows 
13 3(J) = j 


0 all J e Anodes in loop 3 (• =*» loops do 
J - ^ not touch 


1 


{ 1 any J e / nodes in loop 3*1 loops 
^ *- i touch 


touch 

In the method which is actually used here, only a single 
code need be stored for each first order loop instead of the 
complete node sequence. As each first order loop is 
generated, it is assigned an integer code whose binary 
representation shows the set of nodes in the loop.. 

3or example, if loop A contains the nodes *-^1,2,7^ , r 
loop B contains the nodes 5,6^ and C contains 
£ 1,2,4, 9,8, 5,7 J , the codes are evaluated as 


A = (001000011) 2 

= (67) 10 

B = ( 000110000 ) 

II 

CD 

w* 

H 

O 

C = (111011011) 2 

= <«5) 10 
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To determine -whether the two loops touch or* not the masking 
operation ’AND' is used. Thus 
(A). AND. (B) = (000000000 ) 2 = 0 

'The result' is zero indicating that loops A and 3 do not touch. 
And (A). AMD. (0) = (001000011) 2 & 0 = (67) 10 

The result is not zero indicating that loops A and C 
touch. 

In our computer IB! 7044, ’AID* operation of logical 
strings is not possible. Therefore, a subroutine is written to 
find the ’AMD* operation of binary equivalent of two decimal 
numb er s . 
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III. modification OF SNAP 


111.1 Introduction 

This chapter describes the implementation details and the 
additional facilities like multiinput and multi output, which 
have been added to SNAP. 

111. 2 Implementation of SNAP on IBM 7044 

The change that had to made to implement SNAP on IM 
7044 was in connection with a ’COMMON * statement used in the 
main program and subroutine SFG-. 'This was required because 
the variables used in the ’COMMON’ statement were real 
variables in the main program, but integers in the subroutine 
SFG, which is not allowed in IBM 7044, available at I.I.T. 
Kanpur. The ’COMMON’ statement in the main program and in 
the subroutine SFG- was the following 
COMMON S EM PON, SMPOD, POLY In main program 

COMMON MF, NS, IB In subroutine SFG 

These statements were deleted both in the main program as 
well as in the subroutine SFG, and this change did not affect 
the pro gran. Instead these variables used in the ' COMMON' 
statement were defined before using them in the respective 
programs. This ' COMMON' statement was used in the original 
SNAP to save memory because corresponding common variables 
are stored in the same area in memory. But this facility- 
had to be sacrifised in the modified program. 
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An error was detected in the original SNAP when a 

differential amplifier circuit containing 12 branches (which 

results in a total number of 59 paths and circuits, in the 

SFG) was solved. The dimension of the variable ’ SMBOL' was 

not sufficient. Hie dimension of it should have been EBG 

(dumber of branches of compact SPG i.e. 75) instead of MBIT 

(number of branches in the network i.e. 25) because its 

subscript takes values up to JIBG. 

(Motel Refer to Appendix A for one more error) 

III. 3 Multioutput Facility 

This facility is used to obtain more than one output 

function in a single computer run. For this the following 

technique is used. 

Augment the original network by appending at one end a 
series connection of dependent voltage sources to the given 
network such that, 

(a) to each branch current Ij desired as an output, there 

corresponds a dependent voltage source which depends on 
Ij and has symbolic weight a AA etc. and 

(b) to each voltage ^qaB ^ es ^ ret ^ as an output, there 

corresponds a set of dependent voltage sources each 
dependent upon a voltage across one of the branches in 
the Path between A and 3 and all having symbolic weight 
BBB etc. 

By specifying the output to be the voltage across the 
entire series connection of dependent voltage sources, we get 
an output function. 
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From this function, the output function corresponding to 
Ij and can be obtained by taking into account only those 

terms which are coefficients of AAA as corresponding to the 
output I T and those which are coefficients of 333 as those 

tJ 

corresponding to 

For example, figure III.l illustrates the network 
augmentation needed to find vo It ag e and across R^ and R^ 

respectively, for the given common emitter transistor ampli- 
fier shown in figure II. 1 and II. 2. 

We get an output function as follows 


Output function 


7 46 


= AAA. + 333. Pg 


V, 


V, 


Then the network functions 


and 


7 


are given by 


'S 


s 


Vr 


= and 


— P 2 1 


S 


P^ and are polynomials containing tile circuit symbols 


Detailed Algorithm 

Corresponding to each required current through a branch 
J, a current controlled voltage source is added to the network. 
The controlling variable is the current in the branch J. Die 
symbol associated with the branch is given in the 'DATA* 
statement. Similarly, if the output is a voltage across a 
branch J, then a voltage controlled voltage source is added to 
the network with the controlling variable as the voltage in the 
branch J. The symbol associated with this branch is given in 









the ’DATA* statement which is different from those for other 
controlled sources. If the required output voltage is a voltage 
across two nodes, across which a single network branch is not 
connected but a Path can be found through a number of tree 
branches, a voltage controlled voltage source is added for 
each branch (J) of the path having the controlling variable at 
that branch (J). All of such controlled sources mil have 
same symbol defined in the ’DATA* statement. Therefore the 
number of such symbols used is same as the number of outputs. 

For example , in the network of figure II. 1 and II. 2, the 
required output voltages are 

1. Voltage across branch 2, and 

2. Voltage across nodes 2 and 4 (Vg^) 

For voltage V 2 ^ the path between nodes 2 and 4 is found 
out through the tree ( consisting of branches 2,3 and 5 ). 

The path between node 2 and 4 contains branches 3 and 5. 
Therefore, as shown in figure III. 2, we have two augmented 
voltage dependent source branches and with the symbols 
BBB multiplying the voltages V^ and V^ respectively. 

III. 4 Multi input Facility 

Program SNAP permits only one independent source. However, • 
this program has been modified by the following technique 
in order to be able to handle more than one Independent source. 

Let i=l»2 n represent a set of n independent 

sources either voltage or current. Let be the permitted 
independent source and let Wg* -W n be the sources which 
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are dependent on ¥^ with, proportionality factors as shown 
below 

¥_ y 

ir — - - _ » tt _ . 5 . -- _ n 

K 1 “ W x * *2 - W x ' " “ll-l~ U-l 

'Hie output polynomial can be written as 


W 


out 


P-j^ + + P^ &2 ~t 


- P n K n-l 


tf. 


A 


where /A and P^, i=l, 2 n are polynomials. Hie output 


function can then be written as 


v out 


H *1 + P 2 *2 + fs ^ + % 


Network functions can be obtained as follows 


W 


out 


W. 


= P 


out 


W, 


1 * 


= P, 


'out 


= p 




¥ 


N 


N 


P e t ailed Algorith m 

If the number of input sources in the network are more 
than one, then the first one is taken as an independent source 
and the rest are treated as the sources dependent on the first 
one with the proportionality factor such as K-j_, “ “ e ‘ fec * 

if the first independent source is a current source then the 
other dependent sources will be current controlled-. If the 
dependent sources are current sources then we have current 
controlled current sources and if these are voltage sources 
then we have controlled voltage sources. Similarly if the 
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first source is a voltage source then the rest of the 
dependent sources -will he voltage controlled and these will 
be voltage controlled voltage sources if the dependent 
sources are voltage sources; if the dependent source is a 
current source then it will be a voltage controlled current 
source. In all these controlled sources the controlling 
variable will be the independent source. All the independent 
sources except the first one are replaced by the corresponding 
controlled sources. 

Por example* the common gait ter transistor amplifier 
having two independent sources I g and 1^ is shown in figure 
III. 3 and the modified circuit is given by figure III. 4. 




■ I 

islll 

■H 


3 Multiinput equivalent circuit of common emitter Iran 














appeedix A 


An error was encounted when developing SPG- for voltage 
controlled current sources* If the controlling branch is a 
link and the type of the link is either resistance (R) or 
inductance (1) or impedance (Z) than for creation of extra 
node of link voltage from link current, the symbol of the 
link should not be inverted. In the subroutine SPG of the 
7044 version and in the subroutine STJB2 of the 1800 version 
of the program, the statement 209 is changed from 

209 EOBSO (HST) = 1 

to 

209 KOHSO ( 3IE Si) = KUEO 



IV. IBM 1800 VSR SI OF OF SSAP 


IV. 1 Introduction 

Phis chapter describes the implem entation details of 
S3IAP on Iffi 1800. 

IV. 2 Changes Made for Converting IBM 7044 Version of S MAP to 
IBM 1800 Version of SNAP 

1. All the six character variable names are changed into 
five character names. Generally the last character 

of the six character variable name is deleted except in 
a few cases. Bor details see appendix A. 

2. All logical ’IP’ statements are changed into arithmetic 
•IP* statements. Por example statements 

IP (I.BQ.J) GO TO 15 
I = 1+1 

is changed into statements 
IP (I-J) 10, 15, 10 
10 I = 1+1 

3. In the write statements, the statement that is to be 
printed, is kept within quote marks (' ) instead of 
stars ( * ) 

For example 

miTS (6,10) HOD 

10 FORMAT (lx, * MMB3L OP MODES = * , 13 ) 
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Statement number ’10' is changed as follows 
10 PORMAT (IX, ‘UMBER OP NODES = * , I?) 

4. Dimensions are reduced because the dimensions of the 
■variables, in the IBM 7044 version of SNAP are very 
large, they cannot be accommodated in I DM 1800. Por 
details see appendix B . 

5. The program is divided into two parts because the whole 
program cannot be accommodated in the memory; these 
parts are executed sequentially by using the ‘DIM* 
subroutine. However such parts are stored using a 

*ST0RBCI card prior to execution. Por example, let the 
names of the parts be PARTI and PARI2, let PARTI be 
executed first and then PART2. Been PARTI will contain 
two additional cards, one in the beginning and one in 
the last as follows 
EXTERNAL PART2 
PARTI program 

CALL LINK (PART2) 

END 

When PARTI is executed, PART2 is executed automatically 
The variables from first part to second part are 
transferred by ’COMMON’ statements. 
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6. The memory of IBM 1800 is insufficient to accommodate 
each one of these parts, so each part is further divided 
into number of subroutines. All the subroutines are 
not loaded simultaneous Cy. Only those subroutines are 
loaded which are executed at the same time. This is 
done by the statement ’LOCAL* . ihe function of this 
statement is to call a subroutine into the memory when 
it is required. The restriction is that no subroutine 
in * LOCAL* should call another subroutine, but in "this 
program one subroutine calls another subroutine, which, 
is done by ’Group LOCAL* ; in ’Group LOCAL’ a local 
subroutine can call another local subroutine provided 
they are in one group. It is expressed as follows. 

Bor example 

LOCAL (SUB1, SU32 ) , SUB3, (STJB4, SUB5, SU36) 

In this SUB1 can call SUB2 but cannot call any other 
local subroutine such as SUB3, SUB4 etc.' 

7. ’BLOCK COMMON’ facility is not available on II 1800 . 
Therefore the variables are transferred by argument 
list, from one subroutine to another subroutine or from 
main program to subroutine and vice-versa instead of 
’BLOCK COMMON* . 

8. In ’DATA* statement H-format cannot be used. That’s 

why whatever is in ’DATA* statement, is included within 
quote marks (’). UT. KANPUR 

central library 

Act No. A 
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lor example 

DATA IB, SB/ 3H S3, 5H 1 / 

is changed into 

DATA SB, SB/ 1 * * * B3 5 , « 1 »/ 

9. IBM 1800 type-writer prints the character 1 instead 

of * = ' character. If a correct output is to he 

printed from the IBM 1800 typewriter, the 8-6 combination 
keys on the IBM 29 key punch machine must be used. 

In data cards instead of 1 = ’ character. 8-6 combi- 
nation key on the IBM 29 key punch machine ( which is 
numeric Y ) is to be punched. 

10. 1 01TB WORD INTBS-ERS 1 control card is included. 

Otherwise integers will take two words in memory. 

IV, 3 Important Considerations for Conversion from IBM 7044 to 
IBM 1800 Version of SPAR. The following are the Points 
which are to be carefully considered . 

1. Program is divided into two parts in such a way, that 

1 COMMON’ block is as small as possible because of small 

memory of IBM 1800, 

While dividing the program into parts and parts into 
subroutines care should be taken for back and forth 

refer encii^. 


2 
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3« Dimension of the variables are reduced in proportion. 

4. We should generally use base for symbol code as 4 
because if base for symbol code is used as 8 then we 
cannot use more than five symbols ( including multioutput 
symbols as AAA, 3B3 - - - etc. and multi input symbols 
such as K1,K2 - - - etc.) because if a sixth symbol 

is used, the code for that will be 8^ which is equal to 

32768 (2^) which is greater than the maximum integer 
15 

(2 - 1) represented in IBM 1800 . If one wants to 

use more than five symbols, base for symbol code should 
be 4 or less. 

5. In 'Group Local' , subroutine of the one local group cannot 
call a subroutine of the other local group. If any 
subroutine ’S’ is called by the subroutines of the 
different groups then subroutine ’S' should be stored by 
different names and one of these names should be in each 
local group. 
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APPBIUIZ JL 

List of variables which, are charged while converting 
IBM 7044 version of SEA? to IBM 1800 version of SEAP. 


Original Variables 


Changed Variables 


DECODE 
I DIR SB 
I POWER 
I QUALM 

kaemax 

EBASI3 
IPIRST 
SO CIO I 
SOIREE 
SPCODE 
3EMBOL 
SIMBOD 
SIMBOS 
SIMBUL 
IC0SS2 
1C0SSC- 


DSCOD 

I RISE 

IPO WE 

IQUAX 

KAHU 

KBASI 

SFIRS 

BO CTO 

MOIRE 

SPCOD 

SiMBL 

SIM3D 

3IMBS 

SYMBU 

TCOMS 

I CO Hr 



55 


APP5KHII B 

The dimensions jf the subscripted variables are function 
of variables NBN r N3G, NP AC, NTO, NSPT, NXIP3, KRI, NCI, MS, 
NEON, -which are defined as follows and their original and 
changed values are also given. 





Original 

value 

Changed 

value 

KB If 

Number 

of network branches 

25 

15 

NBG- 

Number 

of branches in SFG- 

75 

30 

npac 

Number 

of paths plus circuits 

220 

125 

NTO 

Number 

of terms in output 

125 

40 

NSPT 

Number 

output 

of symbols per term in 

16 

8 

NSXPS 

Number 

of different powers of S 

12 

5 

mi 

Maximum number of nontouching 
loops 

12 

8 

NCI 

Maximum number of loops 
nontouching any given loop 

75 

40 

ms 

Number 

of repeated symbols 

9 

9 

NEON 

Number 

loop 

of nontouching pairs of 

900 

400 
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7. FREQUENCY RESPONSE PLOTTING FACT III Y AND LARC-E SCALE 

SENSITIVITY ANALYSIS 

7.1 Introduction 

Elis chapter describes the details of frequency response 
plotting for different set of values of symbols . Prom this 
plotting facility large scale sensitivity of the network 
function with respect to these symbols can be calculated. 


7 . 2 Frequency Response Plotting 

The expression for network function contains symbols in 
both numerator and denominator. After substituting the 
values of all the symbols, the numerator and denominator are 
split, up into real and imaginary parts. 


N ( 60 ) = 


where 


R 


N 


R 


D 


1? 

D 


V 5 U) I 


N 


R D +jCJ I 


D 


= Real part of numerator 


Imaginary part of numerator 
Real Part of denominator 
Ijj = Imaginary part of denominator 


Erom this expression the magnitude of network function 
is calculated as 


/ % 2 + co 2 y 

J V + £») 2 V 


N ( ) 
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The phase angle is calculated as follows. 



(R.j+ 36 .) I-, T 

- J - ■ -- ■ r 

(Rp+juJIj-j ) 


Hj-j - j t* ) ijj 
~ 3 i 


+ 1*} Z + ^ Uu (ijr P L j)~ -^jt -^p) 


V + Uj 2 


■D 


The phase angle. 


9 (tc) ) = tan 


-1 


(i|j- R p - ip ) 

(% r b + M 2 % I D ) 


Both the magnitude and the phase angle me the functions 
of frequency (&> ). They are plotted against frequency. 

In frequency response plotting, the frequency scale is a 
log scale. The magnitude or phase angle are in linear scale. 
The scale of these variables is given by maximum and minimum 
value of these variables. 

ill the symbols of network function are stored in an 
array. Identical symbols are sorted out and their 

corresponding values are stored in temporary locations, if ter 
calculating the magnitude and phase angle of the network func- 
tion for each set, the symbol values which are stored in 
temporary locations are replaced by new set of symbol values, 
fter this the magnitude and phase angle for different set of 
ilues of symbols can be calculated. 
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V * 5 Large Scale Sensitivity Analysis 

The large scale sensitivity of the network: function with 
respect to any of the symbols can be calculated by plotting 
the frequency response for different values of that particular 
symbol keeping rest of the symbols constant. 



APPENDIX A 


A BRIBE LIST OF LIMITATION'S 01 THE SIZE AED TYPE OF NETWORK 


I IT IBM 7044 IN IBM 1800 

Number of Network Brandies (N3N) 25 15 

Remark SNAP cannot handle all net- 
works having KBIT branches or less. 

Other factors such as SPG characte- 
ristics ( number of higher order 
loops for example) and number of 
network symbols to name a few can 
further limit the size of the net- 
work. 

Maximum Number of Elements that can be 

Represented by the same symbol (k) 7 3 


Remark This number can be increased 
to 2 n -l by increasing the symbol code 
base used to 2 n , n > logg (k+1) on the 
input data card 2. 

Number of Different Powers of S (NBXPS) 12 5 

Remark Sufficient for network containing 
no more than NBXPS reactive elements 
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I IT IM 7044 IN IBM 1800 

Estimate of the Maximum Number of 
Distinct Network Symbols (Including 
Multiinput and Multioutput Symbols ) 

Permitted ( SYM) 11 7 

Remark Phis restriction results from 
the fact that SNAP cab contain no more 
than 125 different symbol combinations 
in the output in IB! 7044 and 40 diffe- 
rent symbol combinations in the output 
in IBM 1800. 



Program 

Purpose 

( 1 ) 


( 2 ) 


(3) 


APPE I-IDIJ 


3 


US SR 1 S manual 


I flEOfiM APIOF E33D3D BY USSR 


SNAP (Systolic Network Analysis Program ) 

V. 

To obtain the network functions 


out 

. 

m 


VI I 

out out out „ , „ . „ 

or as a ra tio of two polynomials 


X ’ V. 
m m 


hn 


of the following type: 

All network element values are represented by 
symbols ( the symbols need not all be different ) 


V 


Examples : -y 


out 


s 2 lrc 


m 


S 2 2LRC + S(I+R 2 C) + H 


out 


*in 


ZIP' 


2ZYR + Z + R 2 Y + R 


Some element values are specified numerically, 
some symbolically. 


3x ample: 


out 


S : 


in 


S a 2R + S(.5xl0 6 +150R 2 ) +.75x10^ 


All element values are given numerically. 


Example : 


''out 


V. 

m 


2S 2 + 2x 10 4 S + ,75x10 8 
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Program SNAP is designed to handle lumped, linear, 
time invariant networks containing the following 
type components 

Two terminal circuit elements-resistance, 
inductance and capacitance. 

Two terminal network described by an admittance 
or impedance parameter. 

All types of controlled sources. 


(4) Independent sources. 


(NOTE : Mutual inductance, ideal transformers gyrators. 


etc. can be modeled with elements in (1) and (3)), 


Network Data Required ; After the network components has been 
modeled by the type elements allowed, the branches and nodes 
are to be numbered consecutively starting with 1 and reference 
directions for each branch current are to be chosen. The 
following gives the sequence of data cards needed to describe 
the network. 


Columns 

1-72 



Contents 

Title card ( all 72 columns are reproduced 
in the output. Column 1 should not be blank). 
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&ARD 2 


Columns 

1-5 

(right adjusted) 


Contents 

Number of nodes in the network 

Number of branches in the network 


6-10 

(right adjusted) 

She following three entries are optional 

Number base of symbol codes 
(automatically set to 8 if left blank ) 

1 if a description of the SPG is to be 
listed, blank otherwise 

1 if all loops ( circuits) in the SPG are 
to be listed ( node sequence), blnak 
otherwise 


11-15 

(right adjusted) 
21 


22 


Columns 

1-5 

(right adjusted) 


CARD 5 
Contents 

Number of input sources 


6-10 Number of outputs 

(right adjusted) 

Cj&D 4 thru (b+3) 

(b = number of network branches ) 

Note 1: Bach card describes one network branch (element)* 

Note 2 1 If output is a -voltage (current) associated with a 

particular branch, then the data card describing 
this branch should be entered first (last) among 
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the branch. data cards (cards 4 thru (b+3)) to 
insure that this branch will be chosen as part of 
the tree (cotree). 

Note 3i When a large number of branches share one common 

terminal, it is better to place these branches 
first starting -with card 4 (card 5 if note 2 


appli es ) . 

Oo lucans 

1-2 Element type 

(left adjusted) 


Contents 

S: voltage source 
I : current source 

G: Conductance 

R: resistance 
1: inductance 
C: capacitance 

Z: impedance 
Y: admittance 

CC: current controlled current 

source 

CV: current controlled voltage 

source 

VC: voltage controlled current 
source 

VV: voltage controlled voltage 
source 
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Continued 
Go lumns 
3-5 

(right adjusted) 


6-10 

(right adjusted) 
11-15 

(right adjusted) 
17-19 

(right adjusted) 


20 


21-32 

(right adjusted) 


Contents 

element number- - all elements of the 
network must be assigned a distinct number 
(positive integer). For greatest effici- 
ency, the numbering should be consecutive. 

Initial node - -this is relative to the 
arbitrarily chosen current direction. 

terminal node- -this is relative to the 
arbitrarily chosen current direction. 

element symbol- -the element's value, if 

not specified, i s represented by this 
symbo 1. 

EqUal sign (=) if element is to be assigned 
a value. Leave blank if element value is 
to be represented in symbolic form. 

Slement value ( if known)- -Format is 
B 12 . 5 . Units should be compatible with 
element type as specified in columns 1-2 j 
for examp le,R is expressed in ohms, 

G in mhos. 

If element is a dependent source, enter 
the element number of its control. 


33-35 

(right adjusted) 
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If n is the number of input sources then n cards will 
give input sources each containing one input source. These 
cards are as follows 


Columns Contents 

1-5 

Branch number of source 

(right adjusted) 

1 if input is current source 
otherwise blank 


So far the number of cards punched is equal to (b+3+n). 
If m is the number of outputs cards (b+^+n+l)^ to 
(b+3+n+m)^ 1 are punched as follows 


Columns 

1-5 

(right adjusted) 

5-10 

(right adjusted) 


10-15 

(right adjusted) 


Contents 

Hetwork branch number associated with 
output ( leave blank if output is voltage 
across more than one branch ). 

Node number corresponding to positive 
output voltage node (leave blank if 
columns 1-5 are not blank ). 

Node number corresponding to the negative 
output voltage node (columns can be left 
blank if 1-5 are not blank )» 

1 if output is current through a branch, 
blank otherwise (when columns 5-10 and 
10-15 are not blank this should be blank). 


20 



68 


fteqaired in IB>i ia pp 

If the program is stored in IS 180 0 dial;. Hle first 
two control cards are as follows 

// JOB 


// XEQ SNAP 
8 


F X 

16 17 


fte reSt ° f 1316 data oards as the data cards in 

IBS 7044. 

Hie important difference is that instead of ’=» 
character, code 8-6 should he punched. This is the I* leoo 
typewriter equivalent of '=• character (code 8-6 is numeric 
V in the ISM 29 key punch machine ). 

In 'Card 2' if columns 11-15 are left blank the base 
for symbol code will be automatically 4 instead of e. 

If frequency response plotting i s required punch '1' 

in the column 1 of next po-rfl ■ 

card, otherwise use a blank card. 


Frequency Response Plo tting Data 


After the earlier data cards the first card contains 

Contents 

1-10 

Humber of sets of symbols. 


(right adjusted) 


10-20 

(ri^it adjusted) 


Humber of frequencies to which plotting 
is done* 
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His next set of cards contain the values of symbols in 
js 12.5 format (starting from frist column ). a^se values 
are red after seeing the printout as follows. 

Network function contains symbol. The machine will 
print the first symbol and then wait for its values. »e 
user has to give its value, and then machine sill print the 
second symbol and wait for its value. Hie user has to give 
value of this symbol. This process is repeated for all 
the symbols. After one set the machine will wait for rest 
cf^the sets of symbols. Hie user has to give the rest of the 
sets of symbols values simultaneously in the same order. 

uote: While plotting any network function of a network 

containing multiinputs, using multiple outputs. Hie 

multiinput and multioutput symbol value corresponding to 
this network function is punched as one f in 312.5 format) 

and the rest of the multiinput and multioutput symbols value 
are punched a s zero in the data cards. 

Whenever the symbol occurs as '1*. the user should give 
its value as '1* in E22.5 format. 



10 


DATA CARDS FOR COMMON EM ! TIER AMPLIFIER 




COMMON EMITTER TRANS 1 STER AMPLIFIER 


4 

1 

I 1 
R 2 

R 3 
R 4 
R 5 
C 6 
R 7 
VC 8 
1 
7 


S 4 

1 

1 2 11 

2 1 RS 

2 3 Rl = 

3 1 R2 = 

3 4 R3= 

3 4 CC= 

4 1 RL 

4 1 GM= 

1 


• l.E+3 

• l.E+4 
. 4.E+7 

.3,E-11 


«5,E-1 4 


************'**- 


m 




*********** 


COMMON EMITTER TRANS I STER AMPLIFIER 


************* 


number OF NODES= 4 
NUMBER OF BRANCHES* 8 
NO. .OF INPUT TERMINALS- 1 
NUMBER OF OUTPUT-TERMINALS = 1 

BASE FOR SYMBOL CODES= 4 
ELEMENT NO. .OF SOURCE = 1 


ELEMENT ELEMENT 


NETWORK 


TYPE 
I 

R 
R 
R 
R 
C 
R 

VC 

R 
R 
R 


NUMBER 

1 

2 

3 

4 

5 

7 

8 

2 

3 

5 


NTIAL 

TERMINAL 

ELEMENT 

ELEMENT ELEMENT MG I 

NODE 

NODE 

SYMBOL 

VALUE OF 

CONTROL 

1 

2 

11 

0.0.0000E CC 

n 

V 

2 

1 

RS 

0 . 0,00 OCE CC 

0 

2 

3 

Rl = 

0.1.CQ0GE 03 

0 

3 

1 

R2= 

0. 1,000 CE C 4 

0 

3 

4 

R3 = 

0. 4,00002 07 

0 

3 

4 

CC= 

0.3.S0O0E-11 

fs 

u 

4 

X 

RL 

0.0.G0QEE 03 

0 

4 

1 GM= Q.5.0GGOE-O1 

TREE SELECTED 

4 

2 

1 

RS 

0.O.3OOOE OO 

0 

2 

3 

Rl = 

0.L0G0OE 03 

C 

3 

4 

R3= 

C.4.Q0G0E 07 

0 


ELEMENT NUMBER ASSOCIATED WITH OUTPUT= 7 


SFG 


INITIAL 

TERM I NAL 

EXPONENT BRANCH 

BRANCH 

1 IF 

NODE 

NODE 

OF 

S VALUE 

VALUE 

SYMBOL 

7 

1 

0 

-0.1.0000E 01 

FB 

9 

1 

2 

0 

O.1.O0OQE Cl 

RS 

0 

3 

4 

o 

-O.1.0OC0E-C2 

R2 

1 

4 

3 

0 

Q.LOOOOE €3 

R1 

G 

2 

4 

0 

G.L0000E-02 

R2 

1 

4 

2 

0 

-Q.LOOOOE Cl 

RS 

0 

5 

6 

1 

0.3.0000E-11 

CC 

0 

6 

5 

0 

-0.4.0000E C7 

R3 

0 

5 

7 

0 

-0.1,0000 E 01 

RL 

1 

7 

5 

0 

0. 4,0000 E 07 

R3 

0 

3 

7 

0 

-G.1.000GE 01 

RL 

1 

7 

3 

0 

O.LOOOOE 03 

R1 

0 

2 

7 

0 

O.LCOOQE 01 

RL 

1 

7 

2 

0 

-0. 1.000 OE 01 

RS 

0 

4 

3 

0 

O.LOOOOE 04 

R2 

o 

9 

8 

0 

0.5.GDGDE-01 

GM 

0 

8 

5 

G 

0.4, GOODE 07 

R3 

0 

8 

3 

G 

Q.LOOOOE 03 

R1 

6 

8 

2 

G 

-Q.LOOOOE 01 

RS 

0 


IS INVERTED 


1 IF SYMBOL 
IS USED 

1 

1 

0 

§ 

8 

1 

C 

s 

1 

0 

1 

0 

1 . , ■... 

1 

S .. ■ 

0 , 

e ' ■ ■ 

i 



CIRCUITS 


ft 


NO. 

1 

2 

3 

4 

5 

6 

7 

8 
9 

1C 

11 

12 

13 

14 

15 

16 

17 

18 


NODE LIST 
12 7 1 

12498571 

12498371 

1 2 4 3 7 1 

2 7 3 4 9 8 2 

2 7 3 4 2 

2 7 2 

2 4 9 8 5 7 2 

2 4 9 8 3 7 2 

2 4 9 8 2 

2 4 3 7 2 

2 4 2 

3 7 3 

3 4 9 8 5 7 3 

3 4 9 8 3 

3 4 3 

5 7 5 

5 6 5 






COLUMN 

1 


NUMERATOR PO LYNOM I AL 

“(-C.199999E 06+0.120002-04 S)RS/RL 

SYMBOL FOR GIVEN COLUMN 
RS / RL 


POWER 
OF S 

0 

1 


CONSTANT COEFS. IN THE POLYNOMIAL 
COLUMN 1 COLUMN 

-0. 1,9999 E 06 
0.1, 2000 £-04 




DENOMINATOR POLYNOMIAL 

= (0 . 400 10E 04+0 . 12000 E -04 S) RS/RL*( 0 . 5 Q 999 E- 0 I+O. 6 ll 99 E- 06 syRS 

♦ 0 . 44001 E 07 +0 .12O0OE-Q2S} l/RLr*0 . 60999 E 01+0 . 73199 E- 04 S 

COLUMN SYMBOL FOR GIVEN COLUMN 


1 

2 

3 

4 


RS 

RS 

1 

1 


/ 

/ 

/ 

/ 


RL 

1 

RL 

1 


1 




CONSTANT COEFS . W THE POLYNOMIAL 
COLUMN 2 COLUMN 3 COLUMN 4 

0.5.0999E-01 0.4,4 OS IE 07 0.6.0999E 01 


0. 6,1199 E-G6 5.1.2OGOE-02 


************************************************** 


RS 







APPENDIX C 


Worked out examples and listing 





COMMON EMITTER 


TRANS 1STER AMPLIFIER 


NUMBER OF NODE'S* 4 
NUMBER OF BRANCHES* 9 
NO. .OF INPUT TERMINALS* ? 
NUMBER OF OUTPUT-TERMINALS = 
BASi: FOR SYMBOL CODES* 4 
tLi I ENT NO. .OF SOURCE = I 
ELEMENT *’0. .OF SOURCE ( 1 )= 9 


*k * 


ELEMENT 

TYPE 

I 

R 

R 

R 

R 

C 

R 

VC 

CC 

R 

R 

R 


ELEMENT 

NUMBER 

1 

2 

3 

4 

5 

6 
7 


NETWORK 


ntial 

terminal e 

LEMENT 

ELEMENT 

ELE 

NODE 

NODE 

SYMBOL 

•VALUE 

"of 

X 

A 

2 

1 1 

0. MOOCH 

00 

£ 

A 

1 

RS 

0.0D0Q0E 

00 

2 

*y 

3 

Rl = 

C.IOOOOE 

03 

3 

IF 

1 

R2 = 

O.IOOOOE 

04 

3 

T 

4 

R3= 

0.4.0000E 

07 

3 

4 

CC* 

C.3.0000E- 

-11 

4 

1 

RL 

O.ftOGGOE 

OS 

4 

1 

GM* 

C.5.C000E- 

-01 

1 

4 

K1 

0. 0.OOOOE 

c 0 


TREE 

SELECTED 

2 

A 

1 

RS 

0 . DECODE 

§0 

2 

7 

3 

Rl= 

O.LOOOSE 

S3 

3 

4 

R3= 

0.4J600E 

0 7 


1ENT NO. 
CONTROL 

0 

Q 

£ 

0 

0 


4 

1 


0 

0 

0 


ELEMENT NUMBER ASSOCIATED WITH OUTPUT(l)* 2 
ELEMENT NUMBER ASSOCIATED WITH OUTPUT(2)= 7 


ELEMENT ELEMENT 
NUMBER 
1 


TYPE 

I 

R 
R 
R 
R 
C 
R 

VC 
CC 
VV 
VV 


modified network 

'!!™ L TER r?I«* L ELUENT ELEMENT ELEMENT MO, 


2 

3 

4 

5 

6 

7 

8 
9 

10 

II 


NODE 
1 
2 
2 
3 
3 

3 

4 
4 
1 

4 

5 


NODE 
2 
1 

3 
1 

4 
4 
1 
1 

4 

5 
S 


SYMBOL 
II 
RS 
Rl= 
R2= 
R3= 
CC* 
RL 
GM* 
K1 
AAA 
3 SB 


VALUE OF CONTROL 
0.0.0900E CO 0 
O.0HOOOE CO 0 
C.1.COO0E £3 S 
OvlJQSOOE 04 U 
©.4JOOOOE 07 Q 
0.3JDC0OE-U 0' 
O.OOOOOE 'm 8 
:.5,ooec£-oi 4 . 
Q.C.C0Q0E :: 1 

C.ftOOOOE so '2 
O.O.OOOOE QO ,'\7 ' " 



vv 

vv 

R 

R 

R 


ly 

ll 

2 

3 

5 


tre e selected 


4 

5 

AAA 

0.0.00Q0E 

Q y 

2 

5 

6 

BBB 

G.OQOOO'E 

oo 

7 

2 

1 

RS 

G.OOOOCE 

00 

0 

2 

3 

Rl = 

O.IQO0OE 

Q3 

V 

3 

4 

R3= 

G.4,OQQGE 

it 7 

0 


SFG 

INITIAL TERMINAL EXPONENT BRANCH BRANCH 1 IF SYMBOL 1 IF SYMBOL 


NODE 

MODE 

OF 

S VALUE 

VALUE 

SYMBOL IS 

INVERTED IS USED 

14 

1 

c 

-G.LCGQCE 01 

FB 

0 

1 

1 

2 

0 

C.IOOGOE 01 

RS 

G 

1 

3 

4 

0 

-G.L0OOOE-O2 

R2 

1 

g 

4 

3 

0 

0.1,00 00 E 03 

R1 

0 

0 

2 

4 

0 

O.IQOOGE-02 

R2 

1 

C 

4 

2 

c 

-O.1C0OOE 01 

RS 

9 

1 

5 

6 

1 

0.3.0C0OE-11 

CC 

0 

C 

6 

5 

0 

-.'.41 .7 

R3 

0 

0 

5 

7 

0 

-0.10000E 01 

RL 

1 

1 

7 

5 

0 

0. 4,0000 E 07 

R3 

0 

0 

3 

7 

§ 

-0. 1,0006 E 01 

RL 

1 

1 

7 

3 

Q 

e.lOOQiE 03 

R1 

0 

0 

2 

7 

0 

O.1Q0GGE 01 

RL 

1 

1 

7 

2 

0 

-0.UGO0E 01 

RS 

o 

1 

4 

12 

u 

0. 1,00 GO E 04 

R2 

0 

u 

12 

8 

0 

G.5,OOOOE-ai 

GM 

0 

0 

8 

5 

0 

0.4.CGGGE §7 

R3 

0 

0 

8 

3 

0 

G. 1.0006 E 03 

R1 

8 

0 

8 

2 

0 

-O.IOOGOE 01 

RS 

0 

1 

1 

9 

0 

0.1, 0000 E 01 

Kl 

0 

1 

9 

2 

9 

O.1O006E 01 

RS 

0 

1 

9 

3 

0 

-e.lGOGSJE 03 

R1 

0 

e 

9 

5 

9 

-O.400GOE 07 

13 

0 

0 

2 

10 

0 

e.icoooE oi 

AAA 

0 

i 

7 

13 

0 

O.IOOGOE 01 

RL 

G 

i 

13 

11 

o 

s.i:...e oi 

BBB 

. o 

i 

10 

14 

3 

0.1O00OE 01 

1 

6 

0 

11 

14 

0 

O.IOOGOE 91 

1 

0 

0 





CIRCUITS 


tm 

f9 


NODE LIST 

1 9 5 7 13 11 14 1 

1 9 5 73 4 12 8 2 1C 14 1 

19 5 7342 10 14 1 

1 9 5 7 2 10 14 1 

1 3 3 7 13 11 14 1 

1 3 3 7 2 10 14 1 

1 9 3 4 12 8 5 7 13 11 14 1 

1934 12 8572 10 14 1 

1 9 3 4 12 8 2 19 14 1 

1 9 3 4 12 8 2 7 13 11 14 1 

1 9 3 4 2 10 14 1 

1 9 3 4 2 7 13 11 14 1 

1 9 2 10 14 1 

1 9 2 7 13 11 14 1 

1 9 2 4 12 8 5 7 13 11 14 1 

1 9 2 4 12 8 3 7 13 11 14 1 

1 9 2 4 3 7 13 11 14 1 

1 2 10 14 1 

1 2 7 13 11 14 1 

1 2 4 12 8 5 7 13 11 14 1 

1 2 4 12 8 3 7 13 11 14 1 

1 2 4 3 7 13 11 14 1 

2 7 3 4 12 8 2 

2 7 3 4 2 

2 7 2 

2 4 12 8 5 7 2 

2 4 12 8 3 7 2 

2 4 12 8 2 

2 4 3 7 2 

2 4 2 

3 7 3 

3 4 12 8 5 7 3 

3 4 12 83 

3 4 3 

5 7 5 

5 6 5 





ft 


NUMERATOR POLYNOMIAL 


COLUMN 

SYMBOL FOR 

GIVEN 

CO LUMN 



1 

Kl 

RL 

BBS 

/ 

RL 

2 

Kl 

RS 

AAA 

/ 

RL 

3 

Kl 

RS 

AAA 

/ 

1 

4 

Kl 

RS 

RL 

BBB 

/ RL 

5 

RS 

AAA 

/ 1 



6 

RS 

RL 

BBB 

/ 

RL 

7 

RS 

AAA 

/ RL 




POWER 

OF S 


CONSTANT COEFS. . 

IN THE POLYNOMIAL 


COLUMN 1 

COLUMN 2 

COLUMN 3 

0 

3 . 4,4 0 0 1 E 37 

-0.1.250CE 05 

0. 1X000 E 01 

1 

(J.L23U0E-02 

O.OGOOOE 00 

0.1.20Q0E-Q4 


COLUMN 5 

COLUMN 6 

COLUMN 7 

0 

0.&G999E 01 

-£.1,9 9 99 E 06 

0.4.4 00 IE 07 

1 

O.7.3199E-04 

0.12300E-04 

C.1.2000E-02 




COLUMN 4 
0.4.2U10E £4 
0.1.2000E-Q4 
COLUMN 


COLUMN 


DENOMINATOR POLYNOMIAL 

• CO •40010E04+0 .1200E-04S)RS/RL* (0 .50 999E-0 1 *0 .611 99E-06S) RS 
+ C0 *44001E07+0 »12OOOE»02S) 1 /RL+O .60999E01+0 .73199E-04S 


COLUMN 

1 

2 

3 

4 


SYMBOL FOR GIVEN COLUMN 
RS / RL 

RS / 1 

1 / RL 

1 /I 


POWER 
OF S 


COLUMN 1 
0.4.001GE 04 
3.1,2<;0OE-34 


CONSTANT COEFS. IJM THE POLYNOMIAL 
COLUMN 2 COLUMN 3 / COLUMN 4 

Q.5.C999E-01 .4,4 53 IE 37' 3.SX939E 31 

■Q.S,1199E-i'i8 : . 1,2 0 0 0 E- 3 2 < .7,3 199 E- 04 


NUMERATOR POLYNOMIAL FDR THE NETWORK FUNCTIONS 


asd 


V 7 /I^ ate respectively. 


HIM 




(0 *60 999E04 +0 #73 1 99E-0 4S ) RS* ( 0 .4400 1E-0 7+0 .120OOE-02S)RS/RL, 
(-0 .19999E06+0 .12000E-04S) RS, 

*0 .12500E00RS/RJL+ (0 .10000E-01+0 .12000E-04S)RS 
0 *4400 1E07 +0 .12000E-02S+ (0 .40010E04+0.12000E-04S)RS 

DINOMINATOR POLYNOMIAL IS SAME AS ABOVE 


COLUMN 








************* 


COMMON EMITTER TRANSISTOR AMPLIFIER 
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************ 


NUMBER OF NODES= 4 
NUMBER OF BRANCHES= 8 
NO. jOF INPUT TERM INALS = 1 

NUMBER OF OUTPUT-TERMINALS = 1 

BASE FOR SYMBOL CODES* 4 
ELEMENT NO. OF SOURCE = 1 


NETWORK 

ELEMENT ELEMENT INTIAL TERMINAL ELEMENT ELEMENT ELEMENT MO. 


TYPE 

NUMBER 

NODE 

NODE 

SYMBOL 

. VALUE OF 

CONTROL 

I 

1 

1 

2 

IS 

Q.GOQGGE CO 

0 

R 

2 

2 

1 

RS* 

f. 1.GQ0GE 0 4 

G 

R 

3 

2 

3 

RB= 

0.7.GCG0E 02 

0 

R 

4 

3 

1 

RBE 

G.0.OGGOE 00 

0 

C 

5 

5 

1 

CBE 

G.GGGGCE GO 

G 

c 

6 

5 

4 

CBC 

G.CGGOGE GO 

G 

VC 

7 

4 

1 

GM 

C.G.GGGGE vU 

4 

R 

8 

1 

4 

RL= 

O.TGGOGE iiS 

G 




TREE SELECTED 


R 

2 

2 

1 

RS* 

C.10GGGE 04 

0 

R 

3 

2 

3 

R5= 

G.7.00G0E 02 

0 

C 

6 

3 

4 

CBC 

G.GGGOOE GO 

0 

ELEMENT 

NUMBER 

ASSOCIATED 

WITH 

OUTPUT* 

8 



INITIAL 

TERMINAL 

SFG 

EXPONENT BRANCH 

BRANCH 

1 IF SYMBOL 

1 IF SYMBOL 

NODE 

NODE 

OF 

S VALUE 

VALUE 

SYMBOL IS INVERTED 

IS USED 

8 

1 

0 

-0.LG0G0E 01 

FB 

0 

1 

1 

2 

G 

G.LQCOUE C4 

RS 

0 

0 

3 

4 

0 

-G.100G0E 01 

RBE 

1 

1 

4 

3 

0 

0. 7.00G0E 02 

RB 

0 

0 

2 

4 

0 

0.1,00 00 E 01 

RBE 

1 

1 

4 

2 

0 

-G.LOOGGE 04 

RS 

0 

o 

3 

5 

1 

-G'.IOSCGE 01 

CBE 

0 

1 

5 

3 

0 

C. 7,0GGG£ 02 

RB 

G 

o 

2 

5 

1 

G.LG6G0E 01 

CBE 

0 

1 

5 

2 

Q 

-G. 1,0000 E 04 

RS 

G 

G 

4 

9 

0 

O.1.O00QE 01 

RBE 

c 

1 

9 

7 

Q 

G.1000GE 01 

GM 

0 

1 

7 

6 

-1 

0.1GGGOE 01 

CBC 

1 

1 

7 

3 

0 

Q.7,§G0QE 02 

RB 

0 

o 

7 

2 

0 

-0.1.OOGGE 04 

RS 

§ 

§ 

2 

8 

G 

-O.UB000E-03 

RL 

1 

v 9 

8 

2 

e 

G.lGeiOE 04 

RS 

i 

0 

3 

8 

0 

O.100OOE-03 

RL 

1 

0 

8 

3 

0 

-G. 7,0GC0E 02 

RB 

0 

0 

6 

8 

o 

G.IGG0GE-G3 

RL 

■ 1 

0 

8 

6 

-1 

-G.1Q0C0E 01 

CBC 

1 

1 



Cl RC.JJTS 





81 

DEMO: 1 1 NATOR POLYNOM 1 AL 

aa SA 1 $S225^Jf!fSl!2s?252 9 l ttSS* 10 *? 1 !! 9992 o48xVrbb*o.ik)7ob ois 
40 • 190733*05 SxGBBxGM/ QBCNO* 30000 ^*03 x 1/ GBC4Q» 2G70O J3 OOxCBS/CBC+O. 10700 B OOx 


CDLJ. i, , 
1 
2 

3 

4 

5 


9 
lb 
11 
1 9 


SY IDOL FOk GIVEN COLUMN 


(VsBasoso) 


CBE 

/ l 




RBE 

CM 

/ RBE 



I 

/ RDH 




1 

I 1 




CBE 

RBE 

CM 

/ 

ROE 

CBE 

RBE 

CM 

/ 

RB t 

CBE 

/ RBE 




RBE 

m 

/ RBE 


CBC 

1 

/ 00 C 




r>r> v 

• r I $ tmm 

/ ROE 

CBC 



nn t' 

L j t 

/ CSC 




*1 

± 

/ RBE 

COC 




pp [ 


POWER 


OF S 


CONSTANT COEFS 

. !.N THE POLY NO UAL 



COLUMN 1 

COLUMN 2 

COLUMN 3 

COLU IN 4 

COLUMN 

1 

l • XdwuCE 02 

.0,1009 9 E 04 

0. 1X639 H 04 

0, 1.10 70 E Cl 


2 

G.1X693E 04 

G.C.OGOuE 00 

0.0X50 ODE 02 

2.0.3000E CO 


U' 

«.O.bvuuE 22 

*2. ©.GOUGE 00 

G.Q.OOO0E 20 

O.&OOOGE 22 



COLUMN 5 

COLUMN 6 

COLUMN 7 

COLUMN 8 

COLUMN 

1 

2.L9273E-05 

C.O.OOG0E 00 

0.0X500CE 20 

i».a,CO£GE 22 


2 

2.0.2222E 02 

G. ©GOOSE GO 

Q. 2.3S00E 02 

2.2.0 030 E 22 


0 

O.OOO0OE 00 

G.0GGO0E 00 

G.GGOOOE CO 

O.aOQOOE 20 



COLUMN 9 

COLUMN 10 

COLUMN 11 

COLUMN 12 

COLUMN 

1 

O.O&OOSE 02 

O.OOOOOE CO 

.1X7002 kit 

0.0JO00E 00 


2 

e.eooooE 02 

G.MOOOE 00 

O.OGQOOE 00 

U.0GG00E 00 


0 

O.LOOOOE-03 

G.C,2000E GO 

o.aooosE 00 

S.1.079CE 00 


. ***************************************^^^ 



NUMBER 

OF SETS = 4 





NUMBER 

OF FREQUENCYS 

= 9 








SET NUMBER 


82 


SYMBOL ( 1) = 1 

SYMBOL ( 1) = C.1.003CE 01 

SYMBOL ( 2) =C8t 

SYMBOL C 2) = 3.1.GQCCE-C8 

SYMBOL ( 3) =RBE 

SYMBOL C 3) = 0.15GC0E £4 

SYMBOL ( 4) = GM 

SYMBOL ( 4) = C.3,5CCCE-ei 

SYMBOL ( 5) =CBC 

SYMBOL ( 5) ■ 0. 1,5000 E- 10 


REAL VALUE OF NUMERATOR = C.2.3333E 09 
IMAGINARY VALUE OF NUMERATOR — 0.1CCGGE U 
REAL VALUE OF DENOMINATOR * 0.1.1422E CS 
IMAGINARY VALUE OF DENOMINATOR = C.4.6403E 02 


FREQUENCY AMPLITUDE PHASE ANGLE 

0.1,GG0GE Cl 0. 2.Q428E 02 -0.2,5528E-04 

y.LCGGCE 0 2 G.2.0428E 02 -0.2.5528E-03 

0. 1.0000 E 03 C.2.0427E 02 -0.Z5528E-02 

0. 1.0000 E 04 0. 204 21 £ 02 -G.25523E-01 

G. 1,0000 E 05 Q, 1,9 79 3 E 02 -0.2,4994E 00 

0. 1,000 SE 06 0. 7.4 5 14 E 01 -0,1.1976c 01 

Q.lOOuuE 07 ■ 0* 79D67E GO -0.15343E 01 

O.LOOOOE 08 0.8M57E-01 0.1,5477c Cl 

0. 1,0000 E 09 G.8.2879E-02 0.1308 IE 01 

0.10000E 10 0.Z2988E-G2 C.3.5560E 00 




SET NUMBER * 2 


SYMBOL 

SYMBOL 

SYMBOL 

SYMBOL 

SYMBOL 


C.LOOOOE 01 
0.5GQ00E-09 
Q.3iOGOOE C4 

O.U50GE-01 
0.1530 OE- 10 


REAL VALUE OF NUMERATOR = 0.US66E -9 
IMAGINARY VALUE OF NUMERATOR =-0.1,QO3C E 00 
REAL VALUE OF DENOMINATOR - I.9J444E 07 
IMAGINARY VALUE OF DENOMINATOR = ©.23 755 £ 02 


FREQUENCY ^ 

:Ii C3 

cIiHSoI ll 


AMPLITUDE 
0.I2P-93E 
0. 1,2 8 99 £ 
f, .1,28 99 E 
S.L2897E 
. . 1.2 72 7 Z 
0.5.-6843E 
£ • 7.2 £2 IE 
0.7.8275E- 
%S377 8E- 


PUASE ANGLE 
-:.i.g5:se-54 

- . 1.6 5 G 8 E- £ 3 

- M . 1,5 5 0 8 E- T 2 
-r. 1,65 J6E- 1 





set m 


MBER = 


symbol ( i) 

SYMBOL ( 2) 
SYMBOL C 3) 
SYMBOL ( k ) 
SYMBOL ( 5) 


= S', 


u *> l,i; y 4#4l C L 1 


■ • 2 . >. .v - - . 17 

0*75yQyE y 3 

7,. . E-Cl 

- • -* ■ 1 v 


M'}!: v alu£ CF fj; 1 “Ratgr - o G3993F 

I lAOIKAW WLUc OF •KJ.'ltRATGa --UlOOCl* 

rT\^ l ^Arv %/? m t 05 - 10, 1 ' " :ATC R = Cm 242S6Z t a 
lAQhJARY /ALJ_ uF DENOMINATOR = .2 


FREQUENCY 
* • S. .. «» *. L ul 
- • 1. J 0 t c, ..2 
i . 1,0 J w u E ,3 
* X. J 4j w i* w „ 4 
O • X. , j w 5 c w5 
- . 1,C yQijE G 6 
0.HJQQ3E 0 7 
C • — X gwuc CO 
C.l/SOOOE CO 
0. 1*1000 £ 13 


AMPLITUDE 
4 , . 2,0 846£ 

0. 2,8 84 6 £ 
0.28846c 
0. 2,8 836 E 
v. 2,79 4 5E 
0.1.0439c 
&.L1263E 

v, * j.,1 2 72 c 

0.1,131 7E-S1 
C. 15 148 E- 02 


02 
0 2 
02 
02 
wl 
00 


PHASE ANGLE 

~0 . 2.55 91 £— C 4 
-0.2,55 DIE-;. 
-0.2.5531H-0 
-‘J . 25 5 85 £-0 


-C, 2.5053E 
~0.11 38 3 E 
-0.1.5326E 
0.1.5657E 
0.1,48 10E 
0. 8.3328 E 


y y 

01 

01 

01 

Cl 

00 


SET NUMBER = 4 


SYMBOL ( 1) 
SYMBOL C 2) 
SYMBOL ( 3) 
SYMBOL ( 4) 
SYMBOL C 5) 


C. 10600 E Cl 
C.lCOQQE-09 
0 . 1 . 500 QE 05 

e-02 

: . 2.7i ;.c H-ic 


Real value of numerator = o.issise os 

jJARY VALUE OF NUMERATOR =-0. 3,9999E-0l 
R*.AL VALUE OF DENOMINATOR = Q.39679E f " 7 
IMAGINARY VALUE OF DENOMINATOR = 0.6.9246E 01 


frequency 
0.LG880E 01 
0. 115030 E 02 
u. 1.00 00 E 03 

oaHoel 05 
:.ioa„E os 

3.1*0u0c 07 
G.1G000Z 08 
S.1.C20SE -9 
C.10O0CE 1C 


AMPLITUDE 
O,4£670E 81 
C.4.557LE Cl 
0,4£670£ 01 
0.4.6668E 81 
0.4-6392E 81 
0.3,14 48 £ 01 
S.4.2411E 80 
0.4-4944E-Q1 
0.15055E-01 
8.1,444 7E~ 01 


PHASE ANGLE 
-O.10999E-34 
-O.1OD99E-03 
-0, 1-099 9 E- 02 
-0.10938E-01 
-C.10955E CD 
-G.8.3479E 00 
-8.1,5137c Cl 
C.12528E 51 
0 . 2.3 7 5 2 E 0;G 
W.2.9555E-S1 


'C. f s." t 


■ H M UI 



MAX. 

MIN. 
MAX . 

MIN. 


/VALUt OF AMPLITUDE = £.2,8846 E C 2 
iVALUc OF AMPLITUDE = 0.1.5148E-02 
.VALUE OF PHASE-ANGLE = « 


0.15657E Cl 


.VALUE OF PHASE-ANGLE =-Q,1.5343£ l»l 










V-' . 'if 7&Z . 




ti' "i’ . 


Mi its 


mm 

W$mm 

»#JS 

SSSigilia 






1 J 1 1 ■ 
i §| i 


fi HH 
W-i 

nKMHUi 


NITIAL 

TERMINAL 

EXPONENT BRANCH 

NODE 

NODE 

OF S 

VALUE 

13 

I 

0 

-C.IOOOOE 

4 

6 

0 

C.lOQOOt 

6 

5 

-1 

C .10000c 

6 

4 

0 

-C . 10000 .6 

2 

7 

0 

-C.10OOGE 

7 

2 

0 

0.17000= 

1 

7 

0 

-C.10QQ0E 

3 

7 

0 

C.10000E 

7 

3 

0 

-0.17000E 

4 

7 

0 

0.1 0000 E 

7 

4 

0 

-C. 10000c 

8 

9 

0 

0.1 0000 E 

9 

8 

-1 

0.10000E 

9 

2 

0 

0.17000= 

9 

3 

0 

-C.17000E 

9 

4 

0 

-0.10000E 

10 

11 

0 

0.10000E 

11 

10 

0 

-e.iooooE 

8 

11 

0 

-G.IOOQOE 

11 

8 

-1 

0.1OOOOF 

2 

11 

0 

-C. 10000c 

11 

2 


C. 170006 

1 

11 

0 

-0.10000E 

' 3 

11 

0 

c.iooooe 

11 

3 

0 

-C. 170006 

3 

11 

0 

c.iooooe 

11 

5 

-1 

-0.10000E 

12 

4 

0 

0.10000E 

12 

3 

0 

Q.17000E 

12 

2 

0 v- ; 

-0.170006 

v. 

8 

' ■ -1 

-C.IOOOOE 

12 

10 

0 

O..IOOOOE' 

5 

13 

0 

-C.IOOOOE 

3 

13 

0 

-O.IOOOOE 

l 

13 

0 

C.IOOOOE 

2 

13 

0 

: =0.100006^ 

8 

13 

0 

0.10000# 


tl 

3RANCH 

1 IF SYMBOL 

I IF SYMBOL 

SYMBOL 

IS INVERTED 

IS USED 

01 

F8 

0 

1 

Cl 

GM 

0 

1 

01 

C2 

1 

1 

01 

R2 

0 

1 

31 

R2 

1 

1 

03 

R1 

0 

0 

01 

R2 

1 

1 

01 

R2 

1 

1 

03 

R1 

0 

0 

01 

R2 

1 

1 

01 

R2 

0 

1 

01 

GM 

0 

1 

01 

C2 

1 

1 

03 

R1 

0 

0 

03 

R1 

0 

0 

01 

R2 

0 


01 

R3 

1 

1 

01 

R3 

0 

1 

01 

R3 

1 

1 

01 

C2 

1 

1 

01 

R3 

1 

1 

03 

R1 

0 

0 

01 

R3 

■ 1 ■ 

1 

01 

R3 

1 

1 

03 

R1 

■ 0 

: 0 

01 

R3 

1 

1 

01 

CZ 

1 

1 : v 

01 

R2 

0 

1 

03 

R1 

0 

0 

03 

■ ' -Rl 1 ■ ■ ■ ' 

0 

0 

01 

■ ■&: =.' 

1 

1 

01 

R3 

0 

1 

01 

1 

0 

0 

01 

l 

0 

0 

01 

1 

0 

0 

01 

1 

0 

0 

01 

1 

0 

0 



CIRCUITS 


NO. 


NODE LIST 


3SS8 


I 

1 

13 

1 







2 

1 

11 

8 

13 

1 





3 

1 

11 

8 

9 

4 

7 

3 

13 

1 

4 

1 

11 

8 

9 

4 

7 

2 

13 

1 

5 

1 

11 

8 

' 9 

4 

6 

5 

13 

1 

6 

1 

11 

8 

9 

3 

13 

1 



7 

1 

11 

8 

9 

3 

7 

4 

6 

5 

8 

1 

11 

8 

9 

V 

7 

2 

13 

1 

9 

1 

1 1 

8 

9 

2 

13 

1 



10 

1 

11 

8 

9 

2 

7 

4 

6 

5 

11 

1 

11 

8 

9 

2 

7 

3 

13 

1 

12 

1 

11 

5 

13 

1 





13 

1 

11 

3 

13 

1 





14 

1 

11 

3 

7 

4 

6 

5 

13 

1 

15 

1 

11 

3 

7 

2 

13 

1 



16 

1 

11 

2 

13 

1 





17 

1 

11 

2 

7 

4 

6 

5 

13 

1 

la 

1 

11 

2 

7 

3 

13 

1 



19 

1 

7 

4 

6 

5 

13 

1 



20 

1 

7 

4 

6 

5 

11 

8 

13 

1 

21 

1 

7 

4 

6 

5 

11 

8 

9 

3 

22 

1 

7 

4 

6 

5 

11 

8 

9 

2 

23 

1 

7 

4 

6 

5 

11 

3 

13 

1 

24 

1 

7 

4 

6 

5 

11 

2 

13 

1 

25 

1 

7 

3 

13 

1 





26 

1 

7 

3 

1 1 

8 

13 

1 



27 

1 

7 

3 

11 

8 

9 

4 

6 

5 

28 

1 

7 

3 

11 

8 

9 

2 

13 

1 

29 

1 

7 

3 

11 

5 

13 

1 



3U 

1 

7 

3 

1 1 

2 

13 

1 



31 

1 

7 

2 

13 

1 





32 

1 

7 

2 

11 

8 

13 

1 



33 

1 

7 

2 

11 

€ 

9 

4 

6 

5 

34 

1 

7 

2 

11 

8 

9 

3 

13 

1 

35 

1 

7 

2 

11 

5 

13 

1 



36 

1 

7 

2 

11 

3 

13 

1 



37 

2 

11 

8 

9 

4 

7 

2 



38 

2 

11 

8 

9 

3 

7 

2 



39 

2 

11 

8 

9 

2 





40 

L ' 2 

11 

3 

7 

2 





4 1 

2 

11 

2 







42 

2 

7 

4 

6 

5 

11 

8 

9 

; 2; 

43 

2 

7 

4 

6 

; 5 

11 

2 



44 

2 

7 

3 

1 1 

8 

9 

2 



45 

2 

7 

3 

1 1 

2 





46 

2 

7 

2 







47 

3 

11 

8 

9 

4 

7 

3 



48 

3 

11 

8 

9 

3 





49 

3 

11 

3 







50 

3 

7 

4 

6 

5 

11 

8 

9 

3 

51 

3 

7 

4 

6 

5 

11 

3 



52 

3 

7 

3 







53 

4 

7 

4 







54 

4 

6 

5 

11 

8 

9 

4 



55 

4 

6 

4 







56 

5 

11 

5 







57 

8 

11 

8 







58 

8 

9 

8 







59 

10 

11 

10 








13 1 


13 1 







91 


# ❖❖##****$*### ## #**##* 


MODERATOR POLYNOMIAL 


COLUMN SYMBOL FCR GIVEN COLUMN 


1 

1 

/ 

1 





2 

1 

/ 

R3 


C2 



3 

GM 

■R2 


/ 

R3 

R2 

C2 

4 

GM**2 

R2 


/ 

R3 

C2**2 


5 

GM 

/ 

R3 


C 2 



6 

Gm*z 

R2 


/ 

R 3 

R2 

C2**2 

7 

GM 

/ 

R3 


R 2 

C2 


8 

1 

7 

R3 





9 

1 

/ 

R3 


R2 



10 

GM 

R 2 


/ 

R 2 

C2 


11 

GM 

R2 


/ 

R 3 

R2 

C2**2 

12 

I 

/ 

R2 





13 

1 

/ 

R3 


R2 

C2 


14 

R2 

/ 

R2 





15 

GM 

R2 


/ 

1 



16 

GM 

/ 

C2 





17 

R3 

/ 

R3 





18 

R2 

/ 

R3 


R 2 

C2 


19 

GM 

R2 


/ 

R 2 

C2 


20 

GM**2 

R2 


/ 

R3 

C2 


21 

C-M**2 

R2 


/ 

R 3 

R2 

C2 

22 

GM 

/ 

R3 


C 2**2 



23 

R2 

/ 

R3 


R2 



24 

GM 

R2 


/ 

R3 



25 

GM 

R2 


/ 

R 3 

R2 


26 

GM**2 

R2 


/ 

R2 

C2**2 


27 

GM 

R2 


R3 

7 

R3 

R2 

28 

GM 

R2 


/ 

R 2 



29 

GM 

/ 

R2 





30 

R3 

/ 

R3 


R2 



31 

GM 

/ 

R3 


R 2 

C2**2 


32 

GM**2 

R2 


/ 

R 2 

C2 


33 

GM 

R2 


R3 

7 

R3 

R2 

34 

GM**2 

R2 


R3 

t 

R3 

R2 

35 

GM 

R3 


/ 

R 3 

R2 

C2 

36 

R2 

R3 


/ 

R3 

R2 


37 

CM**2 

R2 


/ 

C2 



38 

GM 

R2 


R3 

7 

R3 


39 

GM**2 

R2 


R3 

/ 

R3 

C2 

40 

GM 

R3 


/ 

R 3 

02 


41 

GM##2 

R2 


R3 

/ 

R3 

R2 



C2 


C2 


C 2**2 




93 


POWER 







Of S 

constant coefs, 

IN 

THE POLYNOMIAL 




COLUMN I 

COLUMN 2 


CCLLMN 3 

COLUMN 4 

COLUMN 

2 

O.IOOOOE 01 

0. 


0 . 

0. 


1 

G * 

0. 


~n)* 

C. 


0 

0. 

c* 


0. 

0. 


NEGATIVE 

OUTPUT VOLTAGE 

TERMINAL 3 

4 





COLUMN 5 

COLUMN 6 


CCLLMN 7 

COLUMN 8 

COLUMN 

2 

G* 

0. 


0. 

C. 


1 

G • 

0. 


0. 

0. 


0 

0. 

-0. 


0. 

0. 


NEGATIVE 

OUTPUT VOLTAGE 

TERMINAL 3 

4 





COLUMN 9 

CCLUMN 10 


CCLLMN 11 

C0LUMN12 

COLUMN 

2 

u * 

0. 


0. 

0. 


1 

M * *• 

■U.20000E 01 

0. 

0. 


0 

U » 

G. 


0. 

C. 


NEGATIVE 

OUTPUT VOLTAGE 

TERMINAL 3 

4 





COLUMN 1.3 

COLUMN 14 


COLUMN 15 

C0LUMN16 

COLUMN 

2 

cu 

O.IOOOOE 01 


O.ICOOOE 01 

C. 

1 

u. 

G. 


D » 

-O.IOOOOE 01 


0 

D » 

0. 


0. 

0. 


NEGATIVE 

OUTPUT VOLTAGE 

TERMINAL 3 

4 





C0LUMNI7 

COLUMN 18 


CCLLMN 19 

C0LUMN20 

COLUMN 

2 

O.IOOOOE 01 

0. 


0. 

0. 


1 

0. 

0. 


0. 

0 • 


0 

0. 

0. 


0. 

0. 


NEGATIVE 

OUTPUT VOLTAGE 

TERMINAL 3 

4 





C0LUMN21 

C0LUMN22 


COLUMN 2 3 

C0LUMN24 

COLUMN 

2 

•0 * 

0. 


0. 

0. 


1 

0. 

0. 


0. 

o. ■ 


0 

0 # 

•0. 


0. 

0. 


NEGATIVE 

OUTPUT VOLTAGE 

TERMINAL 3 

4 





C0LUMN25 

CCLUMN26 


CCLLMN27 

C0LUMN28 

COLUMN 

2 

G * 

•■0 * 


0. 

0. 


i 

0. 

0. 


-0.2CQ00E 01 

0. 


0 

0. 

O.IOOOOE 01 

0. 

0. 


NEGATIVE 

OUTPUT VOLTAGE 

TERMINAL 3 

4 



■ 


C0LUMN29 

C0LOMN30 


C0LUMN3 1 

C0LUMN32 

COLUMN 

2 

0. 

' 0- .*•: 



0. 

1 

1 

0. 

Q. 


: ;o . : ■ 

0. 


' 0 

0. 

0. 


0. 

0. 


NEGATIVE 

OUTPUT VOLTAGE 

TERMINAL 3 

4 





C0LUMN33 

C0LUMN34 


CCLUMN35 

C0LUMN36 

COLUMN 

2 - 

0. . . 

■0.«- 


0. 

O.IOOOOE 01 


I 

0. 

0. 


0 . 

0. 


0 

0. 

0. 


0. 

C. 


NEGATIVE 

OUTPUT VOLTAGE 

TERMINAL 3 

4 





COLUMNS? 

C0LUMN38 


C0LUMN39 

C0LUMN40 

co lumnI 

2 

0. 

O.IOOOOE 01 


0 . 

■ o. : v . 

1 

1 

O.IOOOOE 01 

0. 


-O.ICOOOE 01 

-O.IOOOOE 01 


0 

0* 

0. 


0. 

0* 


NEGATIVE 

OUTPUT VOLTAGE 

TERMINAL 3 

4 





C0LUMN41 

n 

COLUMN 





i 

y • 

0. 






0 

OilOOOOE 01 










93 


DENOMINATOR POmiOlIIAL 


COLUMN 

SYMBOL FOR GIVEN 

COLUMN 



1 

GM R2 


/ 

R 3 

R2 

C2 

2 

GM / 

R3 


R 2 

C2 


3 

GM / 

R3 


C 2 



4 

1 / 

R3 


R2 



5 

1 / 

R3 





6 

GM**2 R2 


/ 

R3 

R2 

C2**2 

7 

1 / 

R2 





0 

R2 / 

nz 





9 

CM**2 R2 


/ 

R 3 

C2**2 


10 

GM R2 


f 

1 



11 

1 / 

R3 


C2 



12 

GM / 

G2 





13 

R 3 / 

R3 





14 

GM**2 R2 


/ 

R 3 

R2 

C2 

15 

GM**2 R2 


f 

R 2 

C2 


16 

GM R2 


/ 

R3 

R2 


17 

R2 / 

R3 


R2 



10 

GM R2 


f 

R3 



19 

GM R2 


f 

R 2 



20 

1 / 

R3 


R2 

C2 


21 

GM / 

R2 


C 2 



22 

R3 / 

R3 


R 2 



23 

R2 / 

R3 


R 2 

C2 


24 

GM R2 


/ 

R2 

C2 


25 

R2 R3 


/ 

R 3 

R2 


26 

GM R2 


/ 

R 3 

C2 


27 

GM**2 R2 


/ 

C2 



28 

GM R2 


R3 

/ 

R3 


29 

GM / 

R3 


C 2**2 



30 

GM R3 


/ 

R 3 

C2 


31 

GM**2 R2 


/ 

R2 

C2 


32 

GM R2 


R3 

/ 

R3 

R2 

33 

GM**2 R2 


■ft 3 

■ / 

R3 

R2 

34 

GM / 

R3 


R2 

C2**2 


35 

GM R3 


/ 

R3 ■" 

R2 

C2 . 

36 

GM R2 


/ 

R 3 

R2 

C2**2 

37 

-GM- R2 


R3 

/ 

R3 

R2 

38 

GM**2 R2 


R3 

/ 

R3 ■ , 

C2 

39 

1 / 

1 







j 


POWER 


OF 

S 

CONSTANT COEFS 

•IN TFE POLYNOMIAL 



COLUMN 1 

COLUMN 2 

CO LIMN 3 

COLUMN A 

COLUMN 

2 

0 . 

0. 

0. 

0. 

1 

0 « 

-0. 

-0. 

0. 


0 

0. 

0. 

0. 

0. 



COLUMN 5 

COLUMN 6 

CCLLMN 7 

COLUMN 8 

COLUMN 

2 

0.34000E 03 

0. 

0. 34C00E 03 

0.10000E 01 


1 

0. 

0. 

0. 

0. 


0 

0 . 

-0. 

0. 

0. 



COLUMN 9 

COLUMN 10 

CCLLMN 11 

COLUMN 12 

COLUMN 

2 

0. 

0 « 10003 E j 1 

. 0 . 

0. 


1 

0. 

0. 

0.20 CODE 01 

-0.10000E 01 


0 

-0. 

0 . 

0. 

0. 



C0LUMN1 3 

CCLU.MN14 

CCLLMN15 

COLUMN 16 

COLUMN 

2 

0. 10000E 01 

0. 

0. 

0. 


1 

0. 

-0 . 

-0. 

0» 


0 

0. 

0. 

0. 

0. 



COLUMN 17 

COLUMN 18 

C0LLMN19 

C0LUMN20 

COLUMN 

2 

0.3400QE 03 

0.340 00 E 03 

0.34C00E 03 

0. 


1 

0. 

0. 

0. 

0.68000E 03 


0 

0. 

0. 

0. 

0 . 



C0LUMN21 

C0LUMN22 

CQLUMN23 

C0LUMN24 

COLUMI^ 

2 

G . 

0 * 34000 E 03 

0. 

-0. 


1 

-0.34000E 03 

0. 

0. 20C00E 01 

-0.10000E 01 


0 

0. 

0. 

0. 

0. 



C0LUMN25 

CCLUMN26 

CCLLMN27 

COLUMN28 

COLUMf' 

2 

0.10000E 01 

0. 

0, 

0.1QG00E 01 


1 

0 . 

0 • 20000E 01 

-0. lOGOOE 01 

0. 


0 

0. 

0. 

0. 

0 . 



COLUMN-29 

C0LUMN30 

COLUMN 31 

CQLUMN32 

COLUMN 

2 

0 . 

0. 

0. 

0.34000E 03 

' \ 

1 

0. 

-0.10000E 01 

-0.34C00E 03 

0. 


0 

-0.10000E 01 

0. 

0. 

0. 



C0LUMN33 

X0LUMN34 --e/V 

COLUMNS 5 

C0LUMN36 

C0LUM7 

2 

0 » 

: 0. 

0. e-; ; :.v.- ; 

0. 


1 

-0.34QQ0E 03 

0. 

•*0. 34 COOS' 03 

0 • 


0 

0 . 

"0. 3 40 00 E 03 

■.QiX'" 

-Q.IOGGOE 01 



CQLUMN37 

C0LUMN38 

CCLUMN39 

COLUMN 


2 


0. 

0.10C00E 01 



1 

-G.IOOQOE 01 

■:"v;ro.,.--iotfoat i -0i > re-; 




0 

0, 

o. ■ - 

;-e - 





SNACCO10 

SNA0CC20 

SNACC030 

SNACCC40 

SNACCC50 

SNAOC060 

SNA00070 

SNACCC80 

SNACCC9G 

SNAOC1QO 

SNACCUO 

SNA0C12C 

SNA0C130 

SNA0G140 

SNA0G150 

SNACC160 


C********^*# 4**$$$** 44*44 44444444444444 44444$:4cj$t44 44:*45|<::fc5jc44(:{::$:){cj(c:}c:)c4 SNACC170 

C SNAQ0180 

C SNA00190 

C SNACC2C0 

C ****$NAP*444 SNAGC210 

C THIS PROGRAM FINOS THE SYMBOLIC TRANSFER SNACG220 

C FINCH ON CR IMMITANCE FUNCTION OF A SNA00230 

C LIMPED LINEAR TIME INVARIANT NETWORK* SNA0C240 

c SNA0C250 

C SNA0C260 

C44444444t 444 44 444444 444 4444 4 4 44 4 4 44444444*44444 44444*4444<44444444e4t4!44*44* SNA00270 

C THE FOLLOWING ARRAY ARE ASSOCIATED WITH THE NETWORK SNA0C280 

C CHARACTERISTIC NRN (CEF INED IN PRORAM MAIN -1) SNACC290 

DIMENSION LT { 25) ,IG<25) ,$MBCL{?5) SNACC300 

DIMENSION fFLCV(25)*NP{25),KCDES(25),KGNC(25) SNA0Q310 

DIMENSION Nl25,25),CCN$(25,25),KCCE(25,25) f IXPO(25»25) SNA0C320 

C4*444444 444 4444*44*4 4444444 4 4444 4 4 444444444444*444‘*44<444444*44*44:44*4**SNA0C33G 
C THE FOLLOWING ARRAYS ARE ASSOCIATED WITH THE NETWORK SNA0C340 

C CHARATERISTIC NBG SNACC35C 

DIMENSION NFIRSTt 75), NLAST (75), IXPONC 75) tWEIGTt 75) 

DIMENSION SYMBOL ( 75 ) »MIX(75)»CVAL(75) 

DIMENSION K0NSC(75),NEST{75),TYPE(75) 


SNA00360 

SNA0C370 

SNAQC380 


C44<4**4#4t444 44444‘44*44**44*4 4**44**4444 44‘444 4 44444**44*4**44*4**4*4t4****$NACC39C 


SNA0C4C0 
SNA004I 0 
SNAGC420 
SNA0C430 
SNA00440 


THE FOLLOWING ARRAYS ARE ASSOCIATED WITH THE NETWORK 
C CHARACTERISTIC NPAC 

DIMENSION CONST (2201, KCDET( 220), I XPOT{ 220 ),MAPO( 220) 

DIMENSION NCCTCTC22C) , NUP ( 220 ) , JAC( 220 ) 

: 'DIMENS ION';' NPCOCEC 220. )■ : ^ 

0 *** 44*4444 44 444 4*4 4444444444 4 44 4444444 444444*4 444 ** 44 * 4 * 44444 * 4 * 444444*444 SNA 004 50 
C THE FOLLOWING ARRAYS APE ASSOCIATED WITH THE NETWORK SNACC460 

C CHARACTERISTIC NTC , NS FT, AND NEXPS SNAGC470 

DIMENSION N A (1 25 ) ,NB ( 125 ) SNACC480 

DIMENSION KCNS(I6) , KCC 1(16 ) » SEMBCU 16 ) ,KODF{ 16) SNA0C490 

DIMENSION MSCRT C 12 ) jKSCRT ( 125 ) , PDLYUC 12, 125 ) SNAOC500 


° ° ^ u u u u u u u u u u o u u 


CIMENS ICN PCLYC12,125) ,IT0P(125) SNA0C510 

DIMENSION SlM8CN(125,8),SIHeCCU25,8) SNACC 520 

CIMENSICN$ENPCN(125»8) ,SEM PCD (125,8) ' C NACC C 3€ 

DIMENSION I$ET(12,75),NCTCF(<30G),STAR(S) SNAC0540 

C*********** if********,),#**:*:** ******* ********$$$ q**********^*****^***^**#.*. SNA GO 5 50 
TEE FCLLCWING ARRAYS APE ASSOCIATED WITH THE NETWORK SNAQC560 

CHARACTERISTICS NRI , NCI, NECK, ANC NRS SNACC570 


Cl KEN SI CN SH{ 6) , SN (6 ) 

COMMON /C1/M$CRT,KSCRT 
COMMON /C2/NNG ,NBG 
COMMON /C3/NEXFS »NTC 
COMMON /C4/NSPT 
COMMON /C5/SM»$N,NCCLT,NINN 
ECU VALENCE (IXFCfl, 1) , NOTCH ( 1 > ,S IMBCN { 1, 1 ) } 

ECUI VALENCE (CCNSC1,1)»ISET(1,1), SI HBOC { 1, 1) ) 

ECUI VALENCE (KCCE (1,1) ,PCLYU( 1, I ) ) 

REAL I BLANK 
CAT A CASH/2H // 

DATA FB,SB/3E FB»3H 1 / 

DATA STARIl) ,STAR(2),STAR13)/3H , 3H**2,3H**3 / 

DATA STAR (4 J ,ST AR ( 5 ) , S TAR ( 6 1 / 3H**4, 3H**5, 3H**6 / 

DATA 5IAR(7) ,STAR(8),STAR{<3)/3H**7, 3H**8, 3H**<3/ 

DATA SM(1) ,SM (2) ,SM{ 3 )/3H AAA, 3H8EB,3HCCC/ 

DATA SM(4) ,SM{5) ,SM(6 J/3HCDC, 3HEEE, 3HFFF/ 

DATA SNC1) ,SN{2) ,SM3 J/3H K1,3H K2,3H K3/ 

DATA SN (4) ,SM5) ,SM6 )/3H K4,3H K5,3H K6/ 

DATA CNE/3H 1/ 

DATA I BLANK/ 1H / 

PROGRAM MAIN 

PRELIMINARY INPUT INFORMATION 
NBN=NLMBER OF BRANCHES IN NETWORK. 

NEG*NC. OF BRANCHES OF SFG 
NTO=NC. OF TERMS IN CLTPUT. 

NSPT*NO . OF SYMBOLS PER TERM. 

N£XPS=NC. OF DIFFERENT POWERS OF S 
NPAC*NC. OF PATHS PLUS CIRCUITS. 

NRI "MAXIMUM NUMBER OF NONTCUCHING LOOPS. 

NCI *MA XI MUM NUMBER CF LOOPS NOT TOUCHING ANY GIVEN LOOP 
NEGN*NLMBER CF NONTCUCHING PAIRS OF LOOPS 
NRS*NLMBER OF REPEATED SYMBOLS { NUMBER OF NETWORK 
ELEMENTS ASSIGNED SAME SYMBOL) 

N BN = 2 5 
NBG*75 

MO-125 . ' . 

NSPT*16 ' 

NEXPS* 12 
NPAC»220 
NRI =12 
NCI *75 


SNA CCS 80 

SNAGC541 

SNA 005 90 

SNACC6G0 

SNACC61G 

SNA0C620 

SNA0C622 

SNACC630 

SNAGC640 

SNAQC650 

SNA00660 i 

SNA0C67O 

SNA0C680 

SNAGC690 

SNAQC700 

SNA0C7I0 

SNA00711 

SNA0C712 

SNAGC713 

SNACC714 

SNAGC720 

SNA0C730 | 

SNACC74G • 

SNACC750 

SNA0C760 

SNACC770 

SNA00780 

SNACC790 

SNAOC8GO 

SNAGC810 

SNA00820 

SNA CCS 30 

SNA0G840 

SNACC850 

SNACC860 

SNA00870 

SNA00880 

SNACC890 

SNACC500 

SNA0G9I0 

SNA0C92O 

SNACC530 

SNA0C940 



u u o o r-ouuuuu 


NEf3N*5CO 

NPS=9 

N5P7U=NUM8ER OF SYMBOLS IN NUMERATOR OF EACH TERM 
NBTG=NUMBER CF BRANCHES OF TREE CF SFG 
NNG=NUMBER CF NCDES IN SFG 
NNG=NBN 
NSPTL*NSPT/2 
NET G=N BN 
1111 CCNT1NLE 

NRI TE ( 6,519} 

519 FORMAT (1H1) 

THF NE XT 6 CAROS APE FCR PFCELEM I C ENT IF ICATION ON THE 
READ (5, 1150) ( WEIGT (J ) , J=l,72 ) 

1150 FORMAT (72A1) 

IF? VEIGT(1).EQ. 18 LANK) STOP 
HFITE (6,1160 UEIGT(J),J=1, 71) 

1160 FORMAT (1X,?1A1//) 

DC 1151 J-l ,72 

1151 WEIGTU)=0. 

READ (5 ,1240) NCC , NCB, KE ASI S , L I STG, L I STC, LI STP 
1240 FCRMAT(3I5,5X,3I1) 

IF (KEASISU257, 1357, 1358 

1357 KBASIS =8 

1358 CONTINUE 

RE AD ( S» 1 ) NI NN , NO CUT 
1 FORMAT (215) 


SNACCS50 
SNAGCS60 
SNA0C570 
SNA0CS8C 
SNA0C590 
SNA01C00 
SNAC1C10 
SNA0IC20 
SNA01C30 
SNA01C40 
SNA01C50 
1ST DATA CASNA01C60 
SNAC1C70 
SNA01C80 
SNA01C90 
SNAC11C0 
SNA01110 
SNA01120 
SNA01130 
SNA01140 
SNA01150 
SNA01160 
SNA01170 
SNA01180 
SNA01190 j 
SNA01191 I 


VvRI TE ( 6,720) NCC 

720 FORMAT (2X,*NUMBER CF NC0ES=*»13) 
hRI TE (6,721 ) NOE 

721 FCRMAT(2X,*N UMBER CF E RANCHES 5 **, 1 3) 
IF(LISTG)723, 723,722 

722 CONTINUE 
LIST SFG 

723 IF <LlSTC)725t725,724 

724 CONTINUE 

LIST ALL CIRCUITS 

725 IF (USTPJ726, 726,727 

727 WRITE (6,728) 

728 F0RMAT(2X,*U$T ALL PATHS FRCM NODE*, 

6 WRITE (6,?29)NINN 

29 FORMAT (2X,*NC. CF INPUT TERMINALS* 5 *, 13) 


WRI TE( 6, 730) NO CUT 

FORMAT (2X,* NUMBER CF OUTPUT-TERMINALS 



LJ u u u u oououououou 


850 


14 ) 


Vi PI TE t 6, 850 ) KB ASIS 
F0RNA7(2X,*eASE FCF $ YM EC L CCCES=* 

PROGRAM MAIN -2 

TAKE SFG BRANCH INFORMATION AS FOUND 
BY SUBROUTINE ANC GENERATE 

tllPCLTING MATRIX INFORMATION 
N{ J,K) , AND LT{ J) 

C2 ) SFG BRANCH VALUES IX PQ ( J , L ), CONS C J , L ) , 
KCCFC J» L) WHERE J=NFIRST { I } , L=NLAST ( I ) » AND 
I=BRANCH NUN EER 

TOGETHER WITH THE SYMBOL SEHBOL { K ) , K=l, 2 


t • • * # 


MI 


CAL LSLBRCUTlNE TO FORMULATE THE SIGNAL FLOW GRAPH, SFG 

CALL SFGlNFIRST s NLAST ? IXFCN,WEIGT, SYMBUL, KCNSO, M I X ,NEST, LIST 
ININ »NCLT ,NOD , NCB , L I ST G, NCCA, NODE ) 

iFiNoemn, mi, 1920 

1920 CONTINUE 
IEO=C 
KC=C 
MIC H= 1 
K=0 
MG- 1 
JLA $=1 
NCI R= 1 
INI N*NIN 
INOLT*NOLT 
KCO = C 

DC 301 I NK=1 , N SPT 
3C1 KONS (1NK)=Q 

DC BCG INK»1,NNG 
3C0 IG( INK )=C 

FIND IXPOCJ,U ,CONS U,L> 

GC TC 301 

3C5 M6»KE ASIS <*MG 
MICH*MICH+1 i- 
307 IBC»|80+1 

IFtLIST*- 180)19,4,4 
4 CONTINUE' 

LCB=MI X(IBO) 

J=NFI R ST (LOB) 

L=NLA$TUOB) 

I XPO ( J#L|*I XPCMLCB) 

CCNSU,U=WEIGT(LCB) 

FIND ROUTING MATRIX 
8 IFI4.EC.4LASJGC TO IQ 


SNA01420 

SNA0I43O 

SNAG 1440 

SNAC1450 

SNAG 1460 

SNAC1470 

SNAGI480 

SNA01490 

SNAG15C0 

SNA015I0 

SNAG1520 

SNA01530 

SNA0I540 

SNA01550 

SNA01560 

SNA01570 

SNA0I580 

SNAG 1590 

SNA01600 

SNA01610 

SNA01620 

SNAC1630 

SNA01640 

SNA01650 

SNA01660 

SNAC1670 

SNA01680 f 

SNA01690 

SNA017G0 

SNAG 17 10 

SNAC1720 

SNA01730 

SNA 01740 

SNA01750 

SNA01760 

SNA01770 

SNA01780 

SNAG 11 9C 

SNA018G0 

SNAG1810 

SNA01820 

SNA01830 

SNA01840 

SNAG 18 50 

SNAG 18 60 

SNAG 18 70 

SNA0188G 

SNA01890 

SNA019GO 

SNA 019101 


o o u o 


LTC JL A $ ) =K 
K 1= K+ 1 

IFIJLA$~NIN}28, 27,28 
21 N { J LAS ,K 1 )=~ 1 
GC TG 29 

28 MJ LAS ,K1)=Q 

29 JLA S* JLAS+1 
K=0 

GG TC 8 
1C K=K+1 

M J *K } =L 

C FIND KCDE(J,l) AND SEP 8CL ( KCC } 

SFBCL (36C) = SWBUULCP) 

KCDE = NESTRCB) 

IF{POOE)335,316»335 
335 IF( IGCL) 15,960,5 
5 KCDEU,L> = IGU) 

GC TO 307 
560 CCNTINLE 
KPU*IBC-1 

I FI KPL )953 *953 ,315 

315 CQ 952 KP=1 j K FU 
IF{SMECUIBC).NE. SPBCUKP) )GC TO 952 
LCBX=NIX(KP) 

IF( KCN5C(tOB)-XCNSCUCeX) )952, 956,952 
956 LX=NLAST (L08X) 

KCDElJfL)-IG(LX) 

GC TC 307 

952 CONTINUE 

IFC SH ECL( I BO}* E0*0NE )GC TC 316 

953 IG(U = PG 
KC0=KCC+1 

SEMBCL{KCO} = SMECUIBC) 

KCDE( J*L)=IG CL) 

IFIKCNSOUOB ) )3,3,2 

2 KCNS(KC0)=1 

3 CCNTINLE 
GC TO 305 

316 --KOBE iJ f L>eO" 

-:'6C TO 3Q7 

19 LTI JLA S) -K 
K11»K+I 
N(JLAS»K11) ®0 
C 

PRCGRAN MAIN— 3 

NULL CERTAIN ARRAYS, SET COUNTERS , AND DEFINE 
A CODE FOR EACH NODE OF THE 5FG 

PPL*C 
KIK® 1 
LIL = 1 


SNAO 1920 
SNAO 1930 
SNA01940 
SNAO 19 50 
SNA01960 
SNA01970 
SNA01980 
SNAO 1990 
SNAC2CC0 
SNAQ2C10 
SNA02020 
SNA02C30 
SNA02C40 
SNA02C50 
SNA02060 
SNA02C70 
SNAC2C 80 
SNA02G90 
SNA02100 
SNA02110 
SNA02120 
SNA02130 
SNA0214G 
SNA02150 
SNA02160 
SNA02170 
SNA02180 
SNA02190 
SNA02200 
SNA02210 
SNA 02220 
SNA02230 
SNA02240 
SNA02250 
SNA02260 
SNAO2270 
SNA02280 
SNA02290 
SNA02300 
SNA02310 
SNA02320 
SNA02330 
SNA 02340 
SNA02350 
SNAO 2 3 60 
SNA 023 70 
SNA02380 
SNA02390 
SNA 024 00 
SNAO 24 10 


u u u u u 


DC 6C1 KAF=1 ,NEXPS 
DC 601 KI F=1 »NTC 
6C1 POLY ( FAF*KI F ) =0 

DC 602 KP1=1,N£XFS 
6C2 FSCRT (KP1 ) =C 

DC 95C KC2=1,NSPT 
950 KOCI { K02 ) =0 

DC 603 KP2= 1 jNIC 
603 KSCRT <KP2) =0 

TO- 1 

NFI R= 1 
KNC = C 

KCDE S < 1) = 1 ' 

DC 2CCC J$=2,NNG 
2CCO K0DESQ$)=2*KCCES( JS-l) 

IF{LISTP)175, 175, 1116 
1116 WRITE (6,170)NIN,NCUT 

170 FORMAT ( * PATHS FRCF NODE *,I2,* TO NODE *,T2//) 

WRT TE( 6* 1905 ) 

1905 FORMAT (5X,*NC* NCCE LIST*) 

175 CONTINUE 

IF{ USTP)1U3, 1113,23 
1113 K3 = LT (NIN) +1 
MMN«K3>*0 

K2*LT( 1)41 
N{1 ,K2 )a-l 
NIN = 1 
NCUT*1 
KLAS*C 
2 A NFI R*C 

IF(LISTC)1209, 1209, 1219 
1219 CONTINUE 

WBI TE (6,177 ) 

177 F0RMAT(1X,*CIPCUIT5*//) 

WPI TE ( 6,1905 ) 

KNC*C 

1209 CONTINUE 

FROGRAF FAIN— 4 
PATH -FINDING ALGORITHM 

IN ADDITION, STEP PF7 CALCULATES THE COMPOSITE 
CODE .CONSTANT, AND EXPONENT OF THE PATH 
PF1 (PRELIMINARY) 

DC 1112 I Z 0* 1 » N N G 
1112 IF LOW (I ZO) = C 
DC 31 11*1 ,NNG 
31 KCNCCI 11 = 1 
NCP=KL AS 
KLAS*C 
23 1*2 

J=NIN 


SNA 02420 
SNA02430 
SNAC2440 
SNAC245C 
SNAC2460 
SNA02470 
SNA02480 
SNAC249C 
SNA02500 
SNA02510 
SNA02520 
SNAC253C 
SNAC2540 
SNA02550 
SNA02560 
SNA02570 
SNAG2580 
SNA 02 5 90 
SNA026C0 
SNA02610 
SNA02620 
SNA0263C 
SNA02640 
SNA02650 
SNA 02660 
SNA 02670 
SNAG268G 
SNA02690 
SNA02700 
SNA02710 
SNAC272Q 
SNA02730 
SNA 027 40 
SNA02750 
SNA02760 
SNA02770 
SNA02780 
SNA 027 90 
SNA028C0 
SNA 02810 
SNA02820 
SNA02830 
SNA 02 840 
SNA 028 50 
SNA 028 60 
SNA 02870 
SNA 02880 
SNA 028 90 
SNA02900 
SNA 02910 


no n o n n o o o oo no 


NP( 1) = MN 
IFLCWC Mh) = l 
IFL CM NCLT1 =~1 
C 

25 KsKCNC (J) 

PF2 (FIND NEXT NCDE) 

NF{ I ) = N( J,K ) 

PF3 CTEST RCLTING MATRIX) 
IF(N(J t K))lCC,60,34 

PF4CTEST FDR FLCWER ) 

34 NJK=NU*K) 

IF( IFLCMNJK)) 50,38,26 

26 KCNCC J)=KQNC( J)+l 
GC TO 25 

PF5 t PREPARE FOR NEXT NCDE) 

38 J=NP{ I ) 

IFLCWC J) = 1 
1*1 *1 
GC TC 25 

PF6 CBACKSTEP) 

€C I FLOW C 4) =0 
KCNCC J)*l 
J=NPCI-2) 

KCNCC J)=K0NC{J>+1 
1 = 1-1 
GC TC 25 

PF7C FINISH PATH) 

5C KCNCCJ )*KONC{J)+l 
KLAS»KLAS+1 

FIND CODE FOR NCDE PATH 
NPCODE C IR )=0 
I SU = I- 1 

DC 2C02 IS*1»ISU 
NCDS*NP(I S) 

2CC2 NPCODEC IR) ®KPCCDE{ IR ) +KODES t NODS) 
C 

C CALL ARRAY AND WRITE 

IFINFIR.EQ.DGC TC 179 
XFUISTCU206* 1208,1206 
12C6 CONTINUE 

179 KNO=KNC+l 

NR I TE C£,110 ) KNC , C NP ( KR ) , KR*1 , KRU ) 
110 FO RN A TC 4 X » 1 3 , 6 X » 3 5 1 3 ) 


SNA02920 
SNA02930 
SNAG2940 
SNA02950 
SNA02960 
SNA02970 
SNAC298Q 
SNA02990 
SNA03CC0 
SNA030 10 
SNA03C20 
SNA03030 
SNAC3C40 
SNAC2C50 
SNAC3C6C 
SNA03C70 
SNA03C80 
SNA03C9C 
SNAC3100 
SNA03110 
SNA03120 
SNA03130 
SNA03140 
SNA03150 
SNA03160 
SNAQ3170 
SNAC3180 
SNA03190 
SNA032CO 
SNAC3210 
SNA03220 
$NA0323S 
SNA03240 
SNA0325O 
SNA 032 60 
SNA 03 270 
SNA03280 
SNA03290 
SNA033C0 
SNA03310 
SNA 033 20 
SNA 03330 
SNA03340 
SNA 03 3 50 
SNA03360 
SNA 033 70 
SNA03380 
SNA0339Q 
' SNA 034 00- 
SNA 0-34 1-0 


12C8 

r 

CONTINUE 

SNA03420 



SNAC3430 


IF<NFIR.EQ„1)GC TC 32C 

SNA03440 


KCOET ( IR ) =0 

SNA03450 


CCNST { IR )=!• 

SNAC3460 


I XPCT ( IR ) =0 

SNAC347Q 


IEND=I 

SNA03480 


DC 315 KEW=2,IEND 

SNAC3490 


JNODE*NP(KEfc-l ) 

SNAC35CG 


LNOCE*NP(KEfc) 

SNA03510 


KCDET tlR)-KCCET(IR)+KCCEC JKOOEfLNODE) 

SNA03520 


CCNSTUR1=C0NST{IR)*CCNS{ JNCDE,LNODE) 

SNAC3530 


IXPCT{IR)=TXFCT(IP)+IXFQ( JNCDE,LNCCE) 

SNA03540 

319 

CONTINUE 

SNA03550 


CCNEW*CONST < IR } 

SNA03560 


lXNEfc=lXPOT(lR> 

SNA03570 


KCNEfc=HCCET(IR) 

SNA03580 


CALL ARRAY(l,CCNEVi»IXNEW,KCNEVt,PCLY,UIL,KlK) 

SNA03590 

320 

CONTINUE 

SNA036C0 

c 

if* 


SNA 03610 

C 


SNAC3620 


IR= IR+ 1 

SNA03630 


IF( IR-NPAC) 1361,1361,1360 

SNA 03640 

1360 

VRITEC6, 13621 

SNA 03650 

1362 

FCRPAT 11 X »* NC. CF CIRCUITS EXCEEDS UNIT-INCREASE 

DIMENSION*/ SNA03660 

1+CONTAMNG NPAC*) 

SNA03670 

1361 

CONTINUE 

SNA03680 


GC TO 25 

SNA03690 

c 


SNAC37C0 

C 


SNA03710 

c 

PRCGRAR RAIN— 5 

SNA03720 

c 

RCOIFY THE SFG BY RERCVING EVERY BRANCH CONNECTED 

TO THE NODE THR0SNA03730 

c 

kHICH ALL CIRCUITS HAVE JUST BEEN FCUNC 

SNA03740 

ICO 

T3=C. 

SNA 037 50 


IF(NCIR-1)2010, 102,2010 

SNA 037 60 

1C2 

CONTINUE 

SNAC3770 


IF(NFIR-m04«20l0yl04 

SNAC3780 

1C3 

K4=LT ( NINl+1 

SNA 037 90 


N (N IN » K4 1 =0 

SNA 03800 


K5=LT ( 11 + 1 

SNA 038 10 


NIl,K5)=-i 

SNA 03820 


NIN = 1 

SNA 038 30 


NCUT=1 

SNA 03840 


GC TC 24 

SNA 038 50 

104 ; 

IF(NIN-JLAS) 105,200,200 

SNA03860 

1C5 

NIN=J+1 

SNAG387G 


NCUT=J+1 

SNA03880 


KCNCt 41=1 

SNA 03 8 90 


NY*tT(d) + l 

SNA 03 900 


Nf J,NYI*G 

SNA03910 



U Q u 


CC 109 JC=*NIN, JLAS 
LCOL*L TC JC) 

IF( LCCL.EO.O )GC TC 1C? 

TFC MJC,LCCL}-J)109,1C7,109 
1C7 N C JC, LCCL ) = 0 

LT< JC ) =LT ( JC )-l 
1C? CCN7IME 

NZ=LT (MM + 1 
N(NIN,NZ}=-1 
NCUT*NIN 
GC TC 23 

2C10 IF(NCIR-1)?5C, 103,250 
2C0 CONTINUE 
NCL=KLAS 

C PROGRAM VAT N — fc 

C FIND SECOND CRCER ICCFS 

NCL = KL AS 
KHO L=C 

DC 257 KCVi=l ,NF AC 
257 NCCTCT{KCfe>=*C 
LCW 1=NCP+ 1 
NCC =C 

NCLl=NCL-i 

CC 2C3 LIR1 = LCU»KCL1 

LCW2=LIR1+1 

DC 2C2 LIR2=*L0W2, NCL 

CALL lANCCNPCCCE(LTRl) ,NPCCDE (LIR2) ,NAN,0,KBAS IS ) 

IF( NAN >202,201 ,202 
2C1 CONTINUE 

TC0NS2sCCNSTtLIRl )*CCNST( LIR21 
KXPC2=IXPCT(LIP1)+IXPCT(LIF2> 

KSYK2*K0DETUIR1) + KCCET(LIF2) 

CALL ARRAY C2,TCCNS2 , KX FC2 » KSYM2, PCLY»LIL, K IK ) 

KH0L*XHCL+1 

NCC*NCC+1 

IF(NOC-NEON) 1396, 1396, 1395 

1395 WRI TE ( 6, 1397 ) 

1357 FORMAT C1X,*| INCREASE NECN-TFE CIMENS ICN OF THE ARRAY NOTCH* 1 

1396 CONTINUE 
NCTCMNCC) = LIR2 

202 CONTINUE 
2C3 NCC TCT (LlRl )»NCC 
NCCTCT(NCL)=NCC 
PROGRAM MAIN 7 

FIND LCOPS OF ORDER GREATER THAN 2 
GENERATE THE FIRST ROW CF I SET 
MPL-NCP+l 
K APMAX=1 
TNKC=1 

DC 117C I SC=NI PL,NOL 


SNA03920 

SNA03930 

SNAC3940 

SNAQ3950 

SNA03960 

SNA03S70 

SNAC3980 

SNA03990 

SNA04000 

SNAG4G10 

SNA04C20 

SNA0403C 

SNA04040 

SNA04C50 

SNA04C60 

SNA 04 070 

SNA04C80 

SNA04C90 

SNAC4IC0 

SNAC41 10 

SNA04120 

SNA 04 130 

SNAC4140 

SNAC4150 

SNAC4160 ! 

SNA04170 ! 

SNAC4180 

SNA04190 

SNA 042 00 

SNA04210 

SNAC4220 

SNA04230 

SNA 04240 

SNA04250 

SNA04260 

SNA04270 

SNA04280 

SNA 042 90 

SNA04300 

SNA04310 

SNAC4320 

SNA04330 

SNA04340 

SNA0435O 

SNA 043 60 

SNA04370 

SNA04380 

SNA 043 90 

SNA044C0 

SNA 044 10 


INK 1»NCCT0T CISC) 

IR ISC-1)1171 # 11T1»11?2 

1172 INK2 = NCCTCT( ISC-l ) + l 
GC TC 1173 

1171 INK 2=1 

1173 IFC INK 1-INK2-INK0) 1170, 1170, 1175 
1175 INKC=INK1-INK2 

1170 CCNTINLE 

IFC INKC-NCI >1391,1391, 1390 

1350 Vi FI TEC 6,1392) I NKO 

1352 FCRWATC1X, INCREASE NCI TFE NC CF 

1351 CCNTINLE 

CC 49C NI P=NI P L , NCL 
INKL*NCCTCT ( NI F ) 
IF{N'IP-1)210,210,211 

211 INKLeNCCTOT(MP-l) + l 
GC TO 212 

210 INK L=1 

212 CCNTINIE 

IFC INKl-INKL >490,490,410 
410 JIP=C 

DC 480 I NK=I NK L , I NKCJ 
JIP =JI P+1 

480 ISETC1, JIP>=NOTCHCINK) 
HAPC{NIP>=TNKU-INKL+1 

C INITIATE PROCESS FCF FINDING FIGFER 
CC 430 KAT= 1 ,N FAC 
JAC (KA1)=0 
430 NLP(KAT}*0 

JAC C1)*WAPCCMF) 

KAP = 2 

440 KAP=KAP-1 

IFC KAP >450,450,429 

Z ? C 1/ 1 D a & 04* 1 

IFC KAP-NRI) 1350, 1350,1351 

1351 WRI TE (6,1352 ) 

1352 FCRNATC1X,*INCREASE NRI- TFE NC. CF 
1350 CENTIME 

NIP (KAP) =0 
429 KAP1=KAP+1 
JACCKAPD-0 
MPCKAP)=NUPCKAP)+1 
C LABEL LOCP OF FIRST CIRCUIT 
NAP=NLFCKAP) 

IfCKAPPAX-KAP) 1347,1348,1348 

1347 KAPFAX=KAP 

1348 CCNTINLE 

I SA T=I SETCKAPjNAP) 

C TEST LOOP OF REGAINING CKTS 
MAPL= JAC (KAP) 


SNA 04420 
SNA04430 
SNAC4440 
SNA04450 
SNAC4460 
SNAC4470 
SNAC4480 
SNA04490 
SNA04500 
SNAC45 10 

CCLLMNS IN Cl WENS ION OF I$ET*> SNA04520 

SNA04530 
SNA04540 
SNAC455G 
SNA04560 
SNA04570 
SNA04580 
SNAC4590 
SNA04600 
SNA046 10 
SNA04620 
SNAC4630 
SNAC4640 
SNA04650 
SNA04660 

CRCER LCOPS SNA04C70 

SNA04690 
SNA04690 
SNA04700 
SNAC4710 
SNA04720 
SNA 04730 
SNA04740 
SNA04750 
SNA04760 
SNA04770 

ROWS IN DIMENSION OF I SET*) SNA0478G 

SNAC4790 
SNA04900 
SNA 04 8 10 
SNA04820 
SNA04830 
SNA04840 
SNA04850 
SNAC486G; 

SNA04880 
SNA 04 8 90 
S:NA04fO§ 
SNA 04 9 10 



u u u u 


MAPL=NLP(KAPH-1 
CC 435 MAPI*NA FL»NAPL 
ISOT«ISET(KAP»NAPI) 

CALL I ANCCNPCGCECISAT } , NPCCDE t ISCT ) , KAN, G,K8ASIS) 
IF{ KAN }435»455 ,435 
455 CCNTIM.E 
C WRITE 

TCON5G=»CCNST(MP) 

K>PCG*IXPOTCMF) 

KSYKG=KCCET CMP) 

OC 477 LPO=l,KAP 
I TI C=MP ( LPC I 
nuCF*ISET{ IFCtlTIC) 

7CONSG*TCCNSG*CCNST { ITt'CH) 
KXPCG=KXPOG+IXPCT{ITLCF) 

477 KSYNG = KSYMG+KCCETUTUCH 
TCONSG=TCCNSG*CCNST(I$CT) 

KXPCG=KXPOG+IXFCT {ISCT ) 

KSYNG= KSYMG+KCCET { I SCT ) 

K AP P=K AP+2 

CALL ARRAY! KAPFt TCCNSG,KXPCG» KSYPG* POLY, LI L,KIK) 
KhOL=KHCL+l 
C SET C CENTERS 

423 KAP 1*K AP+1 

JAC (KAFI)*JAC( KAPD + l 
JACK=JAC(KAP1) 

ISET{KAP1,JACK)=ISET(KAP»KAPI ) 

435 CCNTIME 

JAC K= JAC (KAP1 ) 

IF! JACK” 2) 431,425,425 
431 I F f JAC(KAP)— MJP{KAP)-1 ) 440,440,429 
450 CCNTINLE 

CALL APRAY(2,1.,0,0,PCIY,LIL,KIK) 

PROGRAM PAIN 8 
DECODE COMPOSITE SYNBC L CODE 
AND ISOLATE SYMBOLS FRCP 
INVERSE SYMBOLS 
NANL=LIL-1 
DC 691 Jl=l jNEXPS 
DC 691 42*1 1 NT 0 
651 PCLYUf Jl, J21 *0 
DC 693 Jl~l ,NTC 
DC 653 J2=l , NSPTU 
SEMPCN (Jl, J2)*STAR(1) 

SEMPCC (J1»J2)*STAR(1) 

SIMBCN(J1,J2»=SB 
653 S1MB0DCJ1,J2)=S8 
DC 951 J4=1,NTC 
NA{ J4) *0 
551 NB( J4 J *0 


SNAC4520 I 
SNA04530 ; 
SNA04540 i 
SNAQ4950 
SNA04560 1 
SNAC4570 j 
SNA04580 j 
SNA04590 s 
SNA05CC0 | 
SNA05C10 I 
SNA05C20 
SNA05030 
SMAC5C4C 
SNAC5C50 
SNA05G60 
SNA05C70 
SNAG5C 80 
SNAC5C90 
SNA05100 
SNA0511G 
SNAC5120 
SNA05130 
SNA05140 
SNAGS 150 
SNA0516Q 
SNA05170 
SNA05180 
SNA05190 
SNA0520G 
SNA05210 
SNAC5220 
SNA05230 
SNA05240 
SNA05250 
SNA 052 60 
SNA 052 70 
SNAG 52 80 
SNA 052 90 
SNA 053 CC 
SNA05310 
SNA05320 
SNA 053 30 
SNA 05340 
SNA 053 50 
SNA 053 60 
SNA 05370 
SNA 053 80 
SNA 053 50 
SNAG 5400 
SNA 054 10 


nonn o 


c DECODE KSORTIJ23 AND RECCRt TERMS 

C CONTAINING FEEDBACK SYMBOL 'FE* 

J2U=LI L-l 
CC 646 J2*l , J2L 
KCD Y=K SORT ( J 2 ) 

I TOP ( J 2) =0 
IF* K0DTJ715, 646,715 

_ 715 C * Ll CECCDE{KCC,KCCV,I Z , FE , JZ » S EMBCL,KCC F, KOOl * I TOP, KBA S I S ) 
ISOLATE NUK. SYMBOLS AND INVERSE SYMBOLS 
: OF KSCRT { J Z } 

637 NAK =C 
NAT =C 

IF( IZ) 646,646,647 
647 CCNTIN'LE 

DC 645 N 2=1 , 1 Z 
KCI Y=KCDI {NZ) 

IARG=KGDF(MZ) 

IF{ IARG-NRS) 1340,1340,1341 

1341 ViRl TE ( 6, 1342 ) 

1342 FCRPAT(1X,*INCREASE TFE DIMENSION OF STAR*) 

1340 CCNTINLE 

IF{ KONS(KCZY) 5657,657,659 
657 NAK=NAK+l 

IF(NAK-N$PTL- 1)1376, 1375*1 37 5 

1375 FRI TE 1 6, 1377 ) 

1377 FCRFAT (1X,*NSPT EXCEEDS LIMIT- INCREASE DIMENSIONS, CONTAINING 
1 NS FT* ) 

1376 CCNTINLE 

SIMBCNCJZjNAK) =SEN8CL ( KOZY ) 

SEMPCN UZ,NAX)=$TARIIAPG) 

NA{ JZ)*NA(JZ)+1 
GC TO 645 
659 NAT =NAT+1 

IF(NAT-NSPTU-l) 1381, 1380, 1380 

1380 fePI TE (6, 1382 ) 

1382 FORMAT (1X»*NSPT EXCEEDS LIMIT-INCREASE DIMENSIONS,* 

^CONTAINING NS FT*) 

1381 CCNTINLE 

SIMECC IJZ,NAT) = SEFBCL(KCZY) 

SEMPOD(jZ,NAT)=STAR(IARG) 

N8( JZ)»NB(JZ)+1 

645 CCNTINLE 

646 CCNTINLE 
: PROGRAM" MAI-ff'' C 9-; 

. ' SEPARATE POLY INTC ARRAYS FOR THE NUMERATOR AND DENOMINATOR 
OF THE TRANSFER FUNCTION 

TFE CONSTANT COEFFICIENTS IN THE TRANSFER FUNCTION ARE SEPARATED 
INTC ARRAYS FCR THE NUMERATOR AND DENOMINATOR 
KIKL=KIK-1 
DC 755 JA=1 , XI XU 


SNAC5420 

SNA05430 

SNA05440 

SNAC5450 

SNAC5460 

SNA05470 

SNAG5480 

SNAQ5490 

SNA05500 . 

SNAC5510 

SNA05520 

SNA05530 

SNA05540 

SNA05550 

SNA05560 

SNA05570 

SNA05580 

SNA05590 ' 

SNA056C0 

SNA05610 j 1 

SNA05620 

SNA05630 

SNA05640 

SNA 056 50 

SNA05660 

SNA05670 

SNAC568C 

SNA05690 i 

SNA0570Q 

SNA05710 

SNAC572C 

SNAC5730 

SNA05740 

SNAQ5750 

SNA05760 

SNA05770 

SNA05780 

SNA05790 

SNAC5800 

SNA05810 

SNA05820 

SNA05830 

SNAC5840 

SNA05850 

SNA05860 

SNA05870 

SNA0588O 

SNA05890 

SNA059C0 

SNAO 5910 



U U U U u 


JIB=C 

JOC 

CC 755 JC=*1 j M Mj 
IFt JTCP(JC) 3753,753,751 
751 JIB » JI E+l 

PCLYLt JA»JTP3 = PCLY{ JA, JC ) 

GC TC 755 
753 JC= JC+1 

PCL Yt J A, JD) “POLYt JA , JC ) 

755 CCNTINLE 

PROGRAM FAIN 10 

FAKE POWERS CF S IN CUTPUT 

TRANSFER FUNCTICN PCSITIVE 

FAXIF=C 

KARLaRIK-1 

CC 522 KAR=1,KARU 

I Ft FSCRTCKAR 3 ) 521,522,522 

521 I Ft FAXJF+FSCRT (KAP) 3 52 3,522, 522 
523 FAX I F= -F SORT (KAR) 

522 CCNTIME 

DC 524 KIT=1,KARU 
524 FSORT (KI7) = FAXIF+FSCRT tKlT ) 

FAIN PROGRAF 11 

PRINT CUT NUFERATCR CF THE TRANSFER FUNCTION 

LLK = C 

IKU»LIl~l 

WRlT£(6,53i) 

WPI TE 16*930) 

WRI TE ( 6, 520 ) 

S2Q FCRFA7 (25X ,*NLFERATCP FCLYNCFI AL*///3 
VtRI TE ( 6,521 } 

521 FCRFAT (1X,*CCLLFN*,12X,*SYF8CL FOR GIVEN COLUMN*) 

DC 5C5 I K=1 , IKL 
IFt I TCP t IK) >505,905*501 
5C1 ILUaNAtIK} 

IFtILU 3710, 710, 711 

710 ILU=1 

711 JLUsNBtIK) 

IFt JLL 3712,712 ,713 

712 J LU * 1 

713 CCNTINLE 
LLK=LLK+l 

WRI TE ( 6,903) LUK, ( SIFBCNt IK, J L) »SEFP0N( IK, IU, 

1 I L= 1 » I LU ) * D A SH » (S IMBCE (IK, JL 3 , SEHPOD ( IK, JL ), JL*1, 4LU ) 
503 FCRFAT (IX, I5,2CX,30A3) 

505 CCNTINLE 

KRI TE(6,930> 

930 FCRFAT (//> 

WRITE (6,18213 
1821 FCRFAT (1X,*PCWER*> 


SNA05520 
SNA05530 
SNA05540 
SNA05550 
SNA05560 
SNA0S570 
SNA05580 
SNA05990 
SNAO6C0O 
SNA06C10 
SNA06020 
SNA06030 
SNAC6C40 
SNAC6C5C 
SNAC6C60 
SNA06070 
SNAC6C80 
SNA06C50 
SNA061G0 
SNAO6110 
SNA061 20 
SNA06130 
SNA 06140 
SNA06150 
SNA06160 
SNAC6170 
SNA06180 
SNA06190 
SNA06200 
SNA 062 10 
SNA06220 
SNAG6230 
SNA06240 
SNAC6250 
SNAG626Q 
SNA06270 
SNAC6280 
SNA 062 90 
SNAC63G0 
SNA06310 
SNA 063 20 
SNA 06 3 30 
SNA06340 
SNA 06350 
SNA06360 
SNA06370 
SNA06380 
SNA 06390 
SNA 06 4 00 
SNA06410 


uuu 


WRITE(£,922) 

?22 FCR PAT (1 X ,*CF S*, 17X,*CCNS7ANT CCEFS, IN THE POLYNOMIAL* 
LMl = 1 
LMl = 4 

1F( JlB-LVU 820,ei8,818 
£20 LMU*JI8 

818 WRf TE ? 6 » 806 ) (LC , ICMML , LMU > 

£Cfe FCRNAT{2X f 7!8X,*CCttKM»I2)} 

KPOWL® KI K— 1 

DC ECS KRCW*1, KfiCWU 

Wl TE(6,810}MSCRT(KRCW>,(PCLYU(KRCW,LM),LM=LML,LMU> 

810 FORMAT ?1 5 »* *,7(E12.5,* *)) 

SC8 CENTIME 

IF{ JIE-LPU) 814,814,812 
812 LML*=L Pt + 4 

LMl=LMU+4 

IF? JlB-LPt) 816,818,818 
£16 LKU=JIB 
GC TC 818 
814 CCN TIME 

FF0GPAM PAIN 12 

PRINT CUT DENOMINATOR CF 

THE TRANSFER FINCTICN 

LU = C 

IKU=LI L-l 

WRITE (6, 931) 

931 FCR MAT (1X»5G(1F*> ) 

WPI TE ( 6,930 ) 

WPI TE ( 6,423 ) 

423 FORMAT ?25X,*CENCMINATCP POLYNOMIAL*///) 

WRI TE ( 6, 924) 

924 FORMAT (1X,*CCLIMN*,12X ,*$YMECl FCR GIVEN COLUMN* } 

DC 7C5 IK=l,IKl 
IF? ITOP(IK) >701,701,705 
7C1 ILU*NA tlK) 

LIKMUK+l 

IF? ILL >915,915,916 

915 ILU=1 

916 JLU=NBUK> 

IFC 4LU >9 17, 917 ,918 

917 JLU*1 

918 CENTIME 

' ■' ' WRI TE (6,703 1 LLK, ? SIMEON? I K, I L ) , SEMPON ( IK, IL >, ' 

1IL=1,ILU),DASH,?SIMECC (IK, JL) , SEMPCD? IK, JL >, JL = 1, JLU) 

703 FCR MAT (1X,I5,2CX,30A3) 

705' CONTINUE"' 

WRITE (6, 9301 
WRITE(6,I822> 

1822 FORMAT ?1X,*PCWER*> 

WPI TE ( 6,925 > 


SNA06420 
SNA06430 
SNA06440 
SNA06450 
SNAC6460 
SNAC6470 
SNA06480 
SNA06490 
SNA065C0 
SNA06510 
SNA06520 
SNA06530 
SNA-06540 
SNA06550 
SNA06560 
SNA06570 
SNAC6580 
SNA06590 
SNA06600 
SNA06610 
SNAC662C 
SNA06630 
SNA06640 
SNAC6650 
SNA06660 
SNA06670 
SNA06680 
SNA06690 
SNAC6700 
SNAC67X 0 
SNA0 67 2 0 
SNA06730 
SNA06740 
SNA06750 
SNA06760 
SNAC6770 
SNAC6780 
SNA06790 
SNA 06 800 
SNA06810 
SNAG6820 
SNA06830 
SNAC6840 
SNA06850 
SNA06&60 
SNA0687C 
SNA 068 80 
SNA06890 
SNA06900 
SNA06S10 



CF S *, 17X,*C0NSTANT CGEFS. IN THE POLYNOMIAL*) 


$25 FC»NAT (lx,* 

lml=i 

LML*4 

IF( JC~IML)52C,5 18,516 
LNU*JC 

h*I TE(6,5C6) ( LC» LC=LNl, LML ) 

FORMAT {2X»?{8X,*CCLIMN*» 12 ) ) 

KPO ViL 3 KI K—l 
CC 5C8 KRCW=1, KRCWU 

fePI TE{ 6,510) MSCRT( KRCW ) , ( FCLY (KROW, LM ) , LM=LML, LMU ) 

FORMAT (15,* *,7{ E12« 5,* *)) 

CCNTINLE 

I F ( JO- LML) 51 A, 514,512 
LML*LNL+4 
LML = L NL+4 

IF( JC-LMU516, 518,518 
LMU= JO 
GC TO 51 S 
CCNTINLE 
WRi TE (6,530 ) 

GC TO 1111 
END 

SLBROL TINE $FG (NFIRST * NL AST* I XPCN,WEIGT» SYMBUL ,KONSO, MIX, NEST, 
1LIST,NIN,N0UT,NC0,NCB,LISTG,NCCA,N0DB) 


520 

518 

5C6 


510 

5C8 

: 1 2 


516 


514 


250 


SNA 06920 
SNA 06930 
SNAC6540 
SNAC695C 
SNA06960 
SNA06ST0 
SNA06580 
5NA0699C 
SNA07C00 
SNA07010 
SNA07C20 
SNAC7C30 
SNA07C40 
SNA07C50 
SNA07C60 
SNA07C70 
SNA07C80 
SNA07C90 
SNAC710Q 
SNAC7110 
SNA07120 
SNA 071 30 
SNAC7140 
SNA07150 
SNA07160 


~ * * ' ' ~ y * W ■ > v- ? ^ w ¥ w ^ * V * m j « i w v u f jfjAU f JL 0 U 

C******************** 3 <*********************:** *4*##j|>*««j(t*^j|t>ji^#********#**SNA0 71 70 

C T 14 C cnit.Pfc.TK#"'* A DO A vC Arif If pfr t At it it * #■* * . •» «*«•* « *•« . ; 


C THE FCLLCVING ARRAYS ARE ASSCCIATEC WITH THE NETWORK 
C CHARACTERISTIC NBN (DEFINED IN PRCGRAM MAIN-1) 

DIMENSION JRCk(25)»NP(25)»lVV(25)» NUML (25),ICV(25), INTREE ( 25) 

DIMENSION LINC (25 ) 

DIMENSION NF (25,25) ,IE (25,25) ,NS( 25, 25 ) 

DIMENSION TYFB(25),JB(25),LE(25),MSYM(25) 

DIMENSION I OLAL (25) ,VA L(25 )*SYM( 25) 

DIMENSION ICLALX(25) ,VALX(25 ),NUMLX( 25 3 , INTRE( 25 ) , NOTREE C 25 1 
DIMENSION TYFX{25),NLMX(25),JBX(253,LBX(25),SYMX(2£> OT « u , £OU 

C*********** ****** *4: *4* **4 4* 4 ******************************************* SNA07270 
C THE FOUOUNG ARRAYS ARE ASSOCIATED WITH THE NETWORK <NAC72P0 

C CHARACTERISTIC NBC SNA072SO 

DIMENSION NFIR$Tf75),MA$T C75 }#IXPON(75 ) , WEIGT (75 ) SNAG73C0 

DIMENSION KCNSC(75) ,NEST(75)*TYPEC75), MAPY(75) : : ■ XV: SNA07310 

DIMENSION SYMBLL(75),MIX(75),CVAL(75) <NAG7320 

DIMENSION SM( 6 ) , SN (6 ) - SNAC7321 

C********** ********** *************************************************** 5 NA07330 


SNA07180 

SNAC7I90 

SNAC7200 

SNA07210 

SNA07220 

SNA07230 

SNAC7240 

SNAC7250 

SNA07260 


COMMON/C2/NNG, NBG 
C0MMCN/C5/SM, SN, N'CCUT yNXNK 

SUBPROGRAM *A* 

DATA Y *G,CfIC»F»CL*Z/2HY , 2HG ,2HC ,1H=,2HR ,2HL , 2HZ 
DATA E,CI,CCfCV,VV,VC/2HE »2HI , 2HCC, 2HCV, 2HVV , 2HVC/ 


SNA07340 
SNAC7350 
SNAO 7351 
SNA07360 
SNA07370 
SNAC7380 

sol 


u u u 


CATA F 8/3H FE/ 
CATA CNE/3H 1/ 
CC 71C IC = 1»NNC- 
DC 71C I K=1 , NNG 
NSC IC , I K } =0 
710 NFC IC , I K )=0 
LINK*© 

DC 152 IG=1 » NBG 
NEST(IG>=0 
152 KCN SC ( IG ) =0 
hfil TE (6,260 
260 FORMAT (//) 


I XPCN ( 1 ) =0 
WEIGTC lla-1. 

SYMBOL (1 )=FB 

KCNSC ( 1) =0 

NEST(1 )=1 

NC=C 

LC=C 

LIST® 1 

K tU = C 

DC 5 11=1, NNG 
INTFEE til) =0 
5 JF0V» ( 1 1 } =0 
DC 528 1=1, NCB 

READ(5,9) TYFX(I) »NUMX (I J , JBX ( I) , LEX ( I 1,SYMX(I), 
llCUALXCIlfVALXCI) .NLMIXCI) 

IFCTYPX(I), EC.COGO TC 1300 
IFC TYPXCI). EC.CVJGC TC 1300 
1F( TYPXCn.EC.VVIGO TC 1300 
IF(TYFX(I>.EC.VC)GO TC 13CC 
GC TO 1301 

13C0 IFCNtPlXCD) 1301, 1302,1301 
1302 1ft P I TE (6,1303 ) 

12C3 FORMAT (1 X,45H***ERRCR***CCNTRCL SPECIFICATION FOR CEP. 
' : ; I7hm;is.singi- ; ■■ 

GC TO 7000 
13C1 CCNTINIE 
528 CCNTIME 
GC TC 7777 
7CC0 NCB=0 

GO TC 1305 

9 FORMAT (A2, 13, 215, IX, A3, Al, El 2. 5, 13) 

7777 CCNTINIE 
KJ = C 
MMM= 1 

IFC NINN-1 1222,222,3333 


SOURCE , 


SNA07400 

SNA07410 

SNA07420 

SNA07430 

SNAC7440 

SNAG7450 

SNA07460 

SNA07470 

SNA07480 

SNAC749C 

SN AC 75 CO 

SNA07510 

SNA07520 

SNAC7530 

SNAC7540 

SNAC7550 

SNA07560 

SNA07570 

SNAG7580 

SNAC7590 

SNA07600 

SNA 076 10 

SNA07620 

SNA07630 

SNA0764Q 

SNAC7650 

SNA07660 

SNA07670 

SNAC7680 

SNA07690 

SNA07700 

SNAG7710 

SNAC7720 

SNA07730 

SNA 07740 

SNAG7750 

SNA07760 

SNA07770 

SNA07771 

SNA07772 

SNAC7773 

SNAC7774 

SNA07775 

SNA 07776 

SNAC7777 

SNAC7778 

SNA07779 

SNA07780 

SNAG7781 

SNA ©'7782 



o o on o 


3333 COMIME 
K J *1 

222 READ(5,224)NIN,K 
2 24 FORM AT ( 21 K ) 

WRITE(6,225)MN 

2 25 FORMAT (IX»*ELEKE NT NC. CF SOURCE = *I3) 

1F( KJ)536,936,S37 
937 MMNN-1 

DC 226 I = 1 * N 
READ ( 5 *22?) NI , M 
227 FORMA T ( 215 ) 

WRITE(6, 928)1 ,M 

526 FORMAT (1X»*ELEMENT M. CF SOURCE (** 12 ,*)=*» 13 ) 
IF( KJ929 t 929,930 
525 IF(M)931, 931*932 

531 TYP X ( M ) = VV 
GO TC 535 

532 TYPXIM )=VC 
GO 7C 535 

93C I F C M)9 33 *933*934 
523 TY P X ( M ) =C V 
GO TO 535 

934 TYP X (NI ) *CC 

935 SYMX(NI)=$N(MMM) 

NLMLX(M )=NXN 

pmm*mmm+i 
226 COMIME 

936 CONTINUE 

KKK® 1 

5559 CONTINUE 

WRI T£(6»260) 

IF (KKK-D26C3 *2602*2603 
2602 WRITE (6,2600) 

2600 F0RMAT(30X,*NETWCRK*) 

GO TC 2604 


SNAC7783 

SNA07784 

SNA07785 

SNA07786 

SNAG7788 

SNA07789 

SNA07790 

SNA07791 

SNAC7793 

SNA 077 94 

SNA €77 95 

SNA07796 

SNA07798 

SNA07799 

SNA 07 8 00 

SNAC7801 

SNA07802 

SNA 07803 

SNAC7804 

SNA01E05 

SNA07806 

SNA07807 

SNA07809 

SNAC7810 

SNA07812 

SNA07815 

SNA07816 

SNA07817 

SNA07818 

SNA 078 19 

SNA07820 

SNAC7821 

SNA07822 

SNA 07 8 23 

SNA 07 824 


2603 WRITE (6*2601) 

2601 FORMAT(30X t *NCCIFIE0 NETWORK*) 

2604 CONTINUE 

" WRI TE (6*261 f ^ ' ' 

261 FORMAT (1X,*E16MENT ELEMENT INTIAL TERMINAL 
1 NO**) 


WRITE (6, 262) 

262 FORMAT (IX,* TYPE NUNEER NCCE NCCE 
1TP0L* ) 

DC 601 M=l, NOB 


SNA07826 
SNA07827 
SNA 07828 
SNA07829 

ELEMENT ELEMENT ELEMENT SNAC783C 

SNA 07 8 32 
SNA0784C 
SNA0785C 
SNA0186C 
SNA0787C 
SNA0788C 

$MQmm 

SYMBOL VALUE OF CON SNA079GC 

SNAQ791C 

SNA0792C 



eel VtRI TE ( 6»600 ) TVPX(M) ,NUMX ( N) , 4BX( M) , L8X( M ) , SYMX ( M ) , 
1ICUAIX(M3»VAU{M3 f NUMlX(M3 ' ' 

6C0 FCRMAT(4X*A2*6X*I2»6X* I2*6X*I2t6X*A3»Alt E12« 5* 2X * T 2 3 
CALL FTREEC TYPX, JEX,LEX t INTREf NCTREE,NCC»NOR ) 

KLL = C 
C 

C SUBPROGRAM *8* 

WRI TE ( 6*518 3 

518 FORMAT (3GX* 13HTREE SELECTEC) 

NIML*NCD~1 

DC 21 MI=l,MMl 

IC-INTRE(N'U) 

NlMC*NUMXfIC1 

TVPE(NLMC)*TVPX(IC) 

JE(KLMC)=JBX(IC) 

LBCMMC)=LBX{IC) 

SYN(NUNC)=SYNX(IC3 
ICUALCKLMC)=ICLALX«IC 3 
VAL (NUNC 3 =VALX { IC 3 
MMUNLMC3=MMLX(IC) 

INTREE (NLMC)=1 

ViRIT£(6*517)TYF8(NUMC3 ,NUMC, 4 e { NUMC 3 , L E( NUMC 3, SYM{ NUMC 3 , 
1KUALCMMC) * V A l (NUMC 3 * NUM L (NUMC 3 
517 FORMAT (4X,A2,6X* 1 2 ,6X * 1 2 ,6X , 1 2* 6X* A3, A 1, E 12*5* 2X, 1 2 ) 
KLUaKlL+1 
LINC(NLMC3=0 

IF{ TYPE(NUMC). NE.VV) GC TO 3 

MC=MO+ 1 

IVV(M03=NUMC 

3 IF( TYPE! NUMC 3 • N E.CV 3 GC TO 4 
LC*LC+ 1 

ICV(IC3=NUMC 

4 4F= J8 (NUMC3 
LF=LB (NUMC) 
ie( JF,LF)*NUNC 
11CLE* JF3*WMC 
4RON ( 4F3=* JRCk ( 4F3 +1 
4R0 J*4RCW ( JF 3 

NF( JF,4RC4)*LF 
NS( JF,LF3-1 
4RGVi(LF 1 = JRC!s ( LF) +1 
4ROL=4PCW(tF) 

NFC LF ,4RCL) = JF 
NS( LF, JF )=-l 
21 CCNTINLE 

IF (KKK- 13 66 60 ,6661 *6660 
66 61 CONTINUE 

IF (N00U7— 1 )80C0*2I1 *8 COO 
8CCC NOOA=NOC 
MM = 1 


SNAG7930 
SNAC7940 
* SNAC7950 
SNA07S60 
SNAG7961 
SNAC7970 
SNA0798C 
SNA0759G I 
SNAO60GO ! 
SNAQ8C10 
5NA08C2G 
SNA08C30 
SNA08040 
SNA08C50 
SNA08C6G 
SNA08070 
SNA08C80 1 
SNA08090 
SNAC81C0 
SNA08110 
SNA08120 
SNA08130 
SNAG £140 
SNA08150 
SNA08160 
SNA08170 
SNAC8180 
SNA08190 
SNA082C0 
SNA08210 
SNA08220 
SNA08230 
: SNAG8240 
SNAC8250 
5NAC8260 
SNA08270 
SNA08280 
SNA08290 
SNA083G0 
SNA08310 
SNA 08320 
SNA 083 30 
SNA 08340 
SNA 08350 
SNA 083 51 
SNA06352 
SNA 08353 
SNA08354 
SNA 083 55 
■ SNA08358' 



22 


5561 

5562 

556C 

5563 

5564 

5565 


14 


15 


16 

1117 


113 


18 

17 

flcci 

211 

5550 

5555 

5551 



KITH OUT PUT l *# Il#*)=* f I3) 


REAC(5,12)NClUT,NCCAA»NCCee t K 
WRITE (6,260) 

IF(NCUT)5561, 5560, 5561 
WRITE (6,5562) KJ,NOUUT 
FORMAT( 1X,*ELEMENT NLMBER ASSOCIATED 
GO TC 5565 
WRITE (6,5563) KJ,NCCAA 

FORMAT* IX, ^POSITIVE CLTPUT VCLTAGE TERM INALC*, II, * )=*I 3 ) 
WRITE (6,5564) KJ»NCDEB 

F0RMAT(1X,*NEGATIVE CITPUT VCLTAGE TERMINAL (*,11,*)=*, 13) 
KJ=K J+l 

IF(KCLLT) 113,113,14 
NCB=N0E+1 
IF(K) 15,15,16 
TYPX(NCB)=VV 
GC T01117 
T YP X (NOB ) =CV 
NUMX(hCE)=NC8 
JR X ( NOB ) =NCC 
LEX <NCB)=N0D+1 
SYMX (NCR)=SM(MM } 

MM = MM+ 1 

NUMLX(NCB)=NCIUT 
N0C=NCD+1 
C-0 TC 17 

CALL TREP ( NCCA A »NCCBE ,NF,NP,NPL) 

NPL L = NPL-1 
DC 18 1=1 ,NPLL 
N0B*NCB+1 
TYPX(NOE)=VV 
NLMX(NOB)=NGB 
JB X { NCB )=NOC 
LBX(NCB)=NCC+1 
SYHX{NCB)=SM{NM} 

NP1=NP(I) 

NP2*NF(I+1) 

NtM L X ( NO E ) = I E { M P l » N P2 ) 

' NOD=NCO+1 ; 

CCNTINLE 

NCOB*N'CO 

IF (NOCUT-1) 20,20,8001 
NCOLT=NCCUT— 1 
GO TO 22 ; ' 

READ (5,12) NCUT,NCCA,NCDB,K 
IF (NGLT ) 555C, 5551 ,555C 
WRITE (1,5555) NOUT 

FORMA T{ IX, * ELEMENT NUMBER ASSOCIATED KITH OUTPUT-*, 13) 

GO TC 6660 
KRI TE(6,5556)NC0A 


SNA06357 

SNA08358 

SNAG S3 59 

SNA08360 

SNAC8361 

SNA08362 

SNA08363 

SWAG8364 

SNA08365 

SNAC8366 

SNA08367 

SNA08368 

SNA08369 

SNAC8370 

SNA08371 

SNA08372 

SN AO 8374 

SNAC 8375 

SNA08376 

SNA08377 

SNA08379 

SNAC8380 

SNA08381 

SNA08383 

SNAC 83 85 

SNA08386 

SNA08387 

SNA08388 

SNA08389 

SNA08390 

SNA08391 

SNA 083 93 

SNA08394 

SNAC8395 

SNA08396 

SNA08397 

SNAC 63 98 

SNA08399 

SNA084C0 

SNA 084 Cl 

5NAQ8402 

SNA 08403 

SNA 084 04 

SNA 084 05 

SNA084G6 

SNA 08407 

SNA 08408 

SNA 084 09 

SNA 084 10 

SNA0841I' 


'te 



u o u u 


E55£ FQRVAT(1X,*FCSITIVE CLTPUT VOLTAGE TERM INAL**, I 3 ) 
VRITE (6,5557)NCCB 

5551 F0RMAT(1X,*NEGATIV£ ClTPUT VOLTAGE TERMINAL-*, 13) 
GO TO 6660 
2C KKK=KKK- 1 

GO TC 5559 
12 FORMAT (415 1 

*£60 CC 13 ILL*1 »NCC 
JP0I*JPCMILl)4l 
13 NF( ILLjJROI )=0 
HRI TE ( 6,260) 

NRITE{6,715) 

715 FORMA Tt 30X ,* SFG *,/ ) 

SUBPROGRAM *C* 

THIS PROGRAM GENERATES SIGNAL FLOW C-RAPh INFO. 
FROM BRANCH NCCE TO LINK NCCE 
NOB Y=NC8 
151 CONTINUE 
NES *C 
LON = C 

IF(KLL-NCB) 532,360,532 
532 LINK=L INK+1 

IF(NCTPEE(LINK))534»534»532 
534 NLMC*NLMXCLINK) 

TVPE(NLMC)*TVPX (LINK) 

JK= JBX (LINK) 

LK= LBX (LINK) 

SVM(NUFC)=SYMX(UNK) 

ICUAL(NUMC)=IQLALX(UNK) 

CVAUNLMC)*VALX (LINK) 

NLMB*NLMLX(LINK) 

TYP2=TVPE(NUMC) 

CVALL=CVALf NLMC) 

KLU*KLL+1 
LINC (NLWC)*1 
KCE PS = C 
: KAN SO* C 

IF( TYPE(NUMC).EQ.CUGC TC 117 
IF(TYPE(NLMC).EC*G)GC TO 119 
IF(TYPE(NUMC).EC.Y)GO TO 119 
IF(TYPE(NUHC).EC.R)GC TC 7C0 
IF{ TYPE(NUMC). EC. Z)GC TC 7C0 
IF( TYPE(NUMC)# EQ.C1GC TO 121 
KOEPS* 1 

IF(TYPB(NUMC).EC.E)GC TC 123 
IF( TYPE(NUMC).EG.CI)GC TC 123 
IF( TYPE! NUMC )* EC. VC )GC TO 165 
IF( TYP E( NUNC). EC.CC )GC TO 265 
117 IXPS*-1 


SNAC6412 
SNA06413 
SNA 084 14 
SNA084 15 
SNA08416 
SNA08417 
SNA 084 18 
SNACE420 
SNAC 8421 
SNA0S422 
SNA08423 
SNAC6427 
SNAC8428 j 
SNAG8430 j 
SNAO 8440 * 
SNAC 84 50 
SNAC8460 
SNA08470 
SNA08480 
SNA08490 
SNAQ850O 
SNAQ8510 
SNA08520 : 
SNA08530 
SNA 08540 
SNA08550 
SNA08560 
SNA08570 
SNA08580 
■' SNA 08590;: 
SNAC86C0 
SNA08610 
SNAO 86 20 
SNA08630 
SNAO 8640 
SNA08650 
SNA08660 
SNA 08670 
SNA 086 80 
SNA 086 90 
SNA 087 00 
SNA 087 10 
SNAC 8720 
SNA08730 
SNA08740 
SNA 087 50 
SNA0876O 
SNAO 8770 
SNA 087 80 

SNAO 8790 



noon 


KAN SC* 1 
GC TC 123 
119 I>PS*C 

GC TC 123 
7CG IXPS*C 
KAN SC* 1 
GC TC 123 
121 IXP S*1 

123 CALL TREP{JK,LK,NF t Np,NPL) 

IFI N=NlFC 
149 LCN = LC N+ 1 
NP1 =NP (LCN) 

NP2 =NP (LCN+1 ) 

1C7 IM T=IB(NPI,NP2) 

1C9 SIGF=NS(NP1,NP2) 

1 F t KDEPS)167*167»169 
167 I F ( ICIAUNUFCUEQ.IOGC TC 111 
NES = 1 

CCN $T = SIGH 
GC TC 125 

111 CCNST=SIGH*CVAIL’ 

125 LIST=LIST+1 

IF(NES)5C2»5C3»502 
5C2 NEST (LIST) = 1 
5C3 KCNSC(LIST)=KANSO 
NFIPST(LIST)=IMT 
NL4ST(L1ST)=XFIN 

S7MBUL(LI$T)*SVFUFIN) 

IXPCNUIST)*IXFS 
IF(KCNSC(LIST) ) 5G5 »505 *504 
5C4 kEIGT{LIST) = l. /CONST 
GC TC 506 

5C5 fc£IGTflI$T)=CCNST 
5C6 FAPY(NLFC)*LIST 
127 FCRPAT (315* E12*5) 

129 FCRFAT (A4) 

SUBPRCGRAN *D*. 

; Wt$: FRCGRAF GENERATES SIGNAL FLCW GRAPH INFO 
FRCP LINK NCDE TC BRANCH NODE 
169 CCNTINLE 

IFI TYPB* INITI. EG. E)GC TC 201 : 
1FCTYPB(INIT).EC.CI)GC TC 201 
IF(TYPBlINIT)*EO.VV)€C TO 201 
iFlTYPBtlNITI.EC.CVlGC TO 201 
LIST=L JST+1 

IF « TYPB(INTT).EC*R)GC TO 133 
IF ( TYPE UNIT EC« Z)6C TO 133 
IF(TYPB{INIT).EC*G1GC TO 702 
IF( TYPE(INTT)* EC* Y)GC TC 7C2 


SNAC83CO 

SNA08810 

SNA06820 

SNA08830 

SNA08840 

SNA08850 

SNAC8860 

SNAC8870 

SNA08880 

SNA08890 

SNA08SC0 

SNA08510 

SNAC8S20 

SNA08S30 

SNAG8540 

SNA08550 

SNAC8560 

SNA 08 970 

5NAG8980 

SNA08990 

SNAOSCOO 

SNA05C10 

SNA05020 

SNA09C3Q 

SNACSC40 

SNAG5C50 

SNA09C60 

SNA09C70 

SNA09C80 

SNAC5CSG 

SNAOliOO- 

SNA09110 

SNA09120 

SNAC5130 

SNA 09 140 

SNA 09 150 

SNA09160 

SNAC9170 

SNAC9180 

SNA09190 

SNA09200 

SNA09210 

SNA09220 

SNA09230 

SNA 09240 

SNAG925G 

SNA 09260 

SNA 09270 

SNA 09 2 80 

SNA 09290;' 



o u o u 


IF(TYPB(INTT).EC.CL)GC TC 135 
IF{TYPE(IMT).EC*C)GC TC 137 
133 I XPCN f LI ST ) =C 
GC TC 141 
7C2 IXPCNt LI ST)=C 
KCNSC { II S T 7 1 
GC TC 141 
135 I XPCN { LI ST) =1 
GC TC 141 

137 I>PCN(LIST)=~1 
KCN SO ( LI ST) »1 

141 IFUCC4UINIT1.EQ.IOGC TC 139 
NEST(LIST)=1 
Vi El G T (LI$T)=-1«*SIGF 
GC TC 147 

139 IF{ KCNSC COST) 1608,608,607 
6C7 UEIGT(LTST)=-$IGH/VAL ( IMT) 

GC TC 147 

6C8 VEIGTCLIST)*— SIGH*VAL(INIT) 

14? NFI RSI (LI ST) =1 FIN 
NLASTfLf ST)=INIT 
SYMBLL (LIST)sSYMINIT) 

2C1 NPL A=*NPL-1-ICN 

IF(NPLA) 151 ,151,149 

SUBPRCGRAM *£* 

THIS PRCGRAP SETS UP SFG INFO. FOR VC 
TYPE CONTROL SOURCES 
165 MNCaNLNe 

IF{ INTREE INUNB))163, 163, 161 
163 LIST-LIST+1 

NFIRST(LIST)=NLNB 
NCB Y = N CB Y+l 
NLA ST(LIST)=NCEY 
SYMBOL I LI ST) =SYN{ NUMB ) 

NLNC*NCBY 

IF( TYP€(NUMB).EC.Y)GC TC 91 2 
1F{ TYPE (NUMB 1« EC* G) GC TC 912 
IF( TYPE! NUMB). EC.CLGC TO 914 
IF{TYPE(NUMBU£C.CL)GC TO 916 
KLNC*C 

KCN SO (LI ST) *0 
I XPCN (LX ST) =*C 
GO TC 916 
512 I XPCN ( LI ST) =C 
KCN SO C LI ST) =1 
KLNC=1 
GC TO 918 

514 I XPCN l LI ST) =-L 
KON SOt LIST) *=1 


SNA053C0 
SNAC531C 
SNA09320 
SNAC5330 
SNAC5340 
SNA0535C 
SNAC5360 
SNA05370 
SNA05380 
SNAG5390 
SNA 054 00 
SNA05410 
SNA09420 
SNA054 30 
SNA09440 
SNA05450 
SNA05460 
SNA €54 70 
SNA0948G 
SNA05490 
SNA 055 CO 
SNA05510 
SNA09520 
SNAC5530 
SNAC5540 
SNA05550 
SNA09560 
SNA09570 
SNAC5580 
SNA05590 
SNA 096 00 
SNA 056 10 
SNA C 56 20 
SNA05630 
SNA 05640' 
.■SNft0f«101 
5NA05660 
SNAC5670 
SNA 056 80' 
SNAG 56 90 
SNAC5700: 
SNA 09? 10 
SNA 05? 20 
SNA09730 
SNA 09740 
SNA 09750 
SNA05760 
SNA09770 
SNA 097 80 
SNA 09? 90 



KINO 1 
GC TC 918 
$16 IXPCMIISTOI 
KCNSCCLlSTIaC 
K1NC=C 

$18 IF{ ieiAUNUNB).EQ.IC)GC TC 920 
NEST { LIST)=1 
WEI GT ( LI ST) 

GC TC 2C9 

$20 IF(KUNC>922,922,924 
$22 WEIGT(LIST)=CVAl(NUM8) 

GC TC 209 

$24 WEI GT ( LI ST) =1. /CV AL (NLMB ) 

2C9 CCNTINIE 
161 LIST=LIST+1 

NFI RST tLIST)=MNC 
NLA ST CLI ST) = NLMC 
5YMBUHLIST)=SYM{NUMC) 

I >PCN ( LI ST) =C 

IF(ICLAUNUMC) .EO.KJGC TC 171 
NEST ( L 1ST ) = 1 
WEI GT ( LI ST) =1* 

GC TC 

171 WEI GT { II ST) = CV ALU 
2C3 CCNTINIE 
GC TO 123 
C 

C SUEFRCGRAM »F* 

C THIS PROGRAM SETS UP SFG INFO FOR CC 

C TYPE CCNTRCL SOURCES 

265 MLNOsNLMB 

IF{ INTREE(NLM8))621,621,62C 
620 LIST*LI$T+1 

NFI R$T(LIST)*NLMB 
NC8Y*NCBY+1 
NLAST{IIST)*NCEY 
SYMBOL (LI ST) a SYM{ NUMB ) 

MLNC*NCBY 

fF(TYPiiNUMiS.Eg # ZjeC -TC 233 ■■ ' 
TF(TYP8(NUf«) # ie*R)GC TC 233 
IF(TYPB(NUMB).EC.CL)GC TC 235 
IF( TYPE(NUMB).EC.C)GC TO 237 
KINC*C 

KCNSC ( LI ST) =C 
:IXW0N{LIST>=G^? 

GC TO 241 
233 IXPCNi LI ST)=C 
KCNSC ( LI ST) = 1 
KLNE»l 
GC TO 241 


SNAC $8CG 

SNA09810 

SNA09820 

SNAC9830 

SNA09840 I 

SNA09850 ' 

SNACS860 

SNA C$870 

SNA 09 880 

SNA09890 

SNA09900 ; 

SNAC5910 : 

SNA09920 I 

SNAQ9930 j 

SNA €9940 j 

SNA0555C j 

SNA09960 1 

SNA09970 1 

SNA09980 

SNAC5990 

SNA1CCC0 

SNA 10010 

SNA1C020 

SNA1CC30 

SNA1C040 

SNA 1C050 

SNA1C060 

SNA1CC70 

SNA1CC80 

SNA1CC90 

SNA10100 

SNA1C110 

SNA1C120 

• SNA 101 30. : 

SNA 10 140 

SNA1C150 

SNA 1 Cl 60 

SNA1C170 

SNA 10 180 

SNA 1C 190 

SNA1C200 

SNA1C210 

SNA 1C22Q 

SNAIC230 

SNA 10240 

SNA10250 

SNA1C260 

SNA 10270 

SNA1C280 

SNA1C290 


u u u u 


235 IXPCNCLI$T)=-1 
KCNSCt tl ST) = 1 
KLN C 3 1 
6C TC 241 
23? I XP CN I II ST) =1 
KCN SC ( LI ST) *C 
KLN C*C 

241 IFUClAL(NUNe) *EC*IC)GC TC 239 
NEST(LIST)»1 
VEIGT(LIST)=1 
GC TC 247 

239 IF{ KUNC) 900,900,902 
9C0 KEI GT ( LI ST) = VA L (NUMB ) 

GC TC 247 

SC2 kEIGT(LIST)«l./VAUNUNB) 

247 CCN7INLE 
621 LI$T=LIST+1 

NFIRST {LIST)=PLNC 

NLAST(LI5T)=NL*C 

SYMeULCLT$T)=SYN{NUNC) 

I XPCN { LI ST) =0 

IF( iQtAUKUPO.EC.IOGC TO 271 

NEST(HST)=1 

ViEIGT(UST) = 1. 

GC TC 2S1 

271 KEIGT(UST)=CVALU 
261 CCNTINLE 
GC TO 123 


SUBPROGRAM *G * 

THIS PROGRAM SETS LP SFG INFC, FOR VV 
TYPE CONTROL SOURCES 
360 IF1MO460, 460,364 
364 DC 3C5 MI*1,MC 
KI=IVV > 

NLHOaNlMLCKI) 

IFILINCtNUNO)) 361,361,363 
363 LIST-LIST+l 

: : \WFI'R:STtlIST')»NmL l'K I ! ' ;■ 

NCBY»NCBY+i 

NLA ST ( LI ST) «NCBY 

SYMBOL (LI$T>*SYP(NUNC) 

'■ IF ( TYPE (NUNC). EC.Y)GC TO". 333 
IF(TYPE(NUNO),EC.G)GC TC 333 
IF(TYPE(NUNO).EO.C)GC TC 335 
IF(TYPE(NUNC).EC.CL)GC TC 337 
KLNC=C 

KONSQ ( tl ST) *C 
IXPGN ( LIST) =0 
GC TC 341 


SNA1C300 
SNA1C310 
SNA1C32C 
SNA 1C330 
SNA1G340 
SNA1C350 
SNA 1C360 
SNA 1C370 
SNA 1C380 
SNA 1 €3 90 
SNA1C4C0 
SNA10410 
SNA 1C420 
SNA 1C430 
SNA1C440 
SNA1C450 
SNA 104 60 
SNA 1C470 
SNA1C480 
SNA1C490 
SNA1C5C0 
SNA 105 10 
SNA 1 C520 
SNA1C530 
SNA IC540 
SNA10550 
SNA1C560 
SNA! 0570 
SNA1C580 
SNA 10590 
SNA10600 
SNA l 0610 
SNA1C620 
SNA 10630 
SNA1C640 
SNA1C650 
SNA10660' 
SNA1C67G 
SNA 1 €6 80 
SNA1C690 
SNA 1 0700: 
SNA IC71C 
SNA 1 07 20 
SNA 10730 
SNA 10740 
SNA1C75G 
SNA1CT60 
SNA 10770 
SNAlCIiO 
SNA 1 C 7 90 



n non 


333 IYPCN l LI ST) =C 
KCNSCUI$T)«1 
KLNC*1 

GC Tn ha i 

335 I>PCNUlST1a-l 
KCNSC(LIST>=1 
KLNC=1 
GC TO 341 
337 I >PCN { LI ST) =1 
KCN SC ( LI ST) =C 
KLNC=C 

341 IF( IQLAUNIINC).EC*IC)GC TO 339 
NEST (LIST}*! 

VEIGTCLIST) = 1. 

GC TO 348 

339 IFl KLNC)9Q4,5C4 *906 
504 fcEIGTUIST)=CVAUMJNC) 

GC TC 348 

5C6 hEI GT ( LIST) =1* /CVAL(NUNC) 

348 CENTIME 
347 CENTIME 
MNC=NCBY 
361 LISTsLIST+1 

NFIRST{UST)=MNC 
MAST ( LI ST) *KI 
SWELL (LIST)*S\R(KI) 

I YPCN l LI ST) =*c 

1FC ICLAUKI ).EC.IQ)GC TC 371 
NEST (LIST) 3 1 
fcElGTUIST)*!. 

GC TO 303 

371 V»EIGT(LI$T)=VAL(KI) 

3C3 CCNTINl'E 
305 CCNTINLE 

SUBPROGRAM «H« 

THIS PRCGRA* SETS UP SFG INFC. FOR 
TYPE CONTROL SOURCES 
460 IF( 10515*515*464 
464 DC 4C5 «I»1*L0 
LI*l€VfMI) ■ 

NtNO»NLMLtLI ) 

IF (UNCCNUNC) ) 463,463,461 
463 U5TMIST+1 

NFIRSTtUST)=NU»UU) 

NC8Y*NC8Y+1 

NLA ST l LI ST) ® NO BY 

SYMBOL CLISTJ-SYRINUNCJ 

IF ( TY PB (NUNC) • EQ» Z 1 GC TC 433 

IF (TYP8 (NUNC) • ECU R) GC TC 433 


SNA1C8C0 
SNA1C810 
SNAIC820 
SNA1C830 
SNA1C840 
SNA1C850 
SNA1C860 
SNA1C870 
SNA1C880 
SNA1C850 
SNA1C500 
SNA1C510 
SNA1C520 
SNA1C53C 
SNA1C540 
SNA1C950 
SNA1C560 
SNA1C570 
SNA1C980 
SNA1C590 
SNA 1 1COO 
SNA11C10 
SNA11C20 
SNA11C30 
SNA 1 1C40 
SNA11C50 
SNA11C60 
SNA 11 070 
SNA11C80 
SNA11G90 
SNA11100 
SNAllliO 
SNA11120 
SNA11130 
SNA! 1140 
SNA11150 

CV SNA11160 

SNA11170 
SNA 11180 
SNA1U90 
SNA 11200 
SNA 112 10 
SNA 11220 
SNA1123C 
SNA1124C 
SNA1125C 
SNA 11260 
. : SN A If 27C 
SNA 11 280 
SNAU29C 



uuuu 


IF CTYPeiKUNC) .FG.CL )GC TC 435 
IF mpeiNIJNCUEQ.C) GC TC 43 y 
KLNC»C 

KCNSOUIST]=C 
IXPCN{LIST)=C 
GC TC 441 
423 IXPCN{LIST)*C 
KCNSC { II ST)»1 
KtNC=l 
GC TC 441 

435 I XPCN ( LI ST) =-l 
KCNSC ( LI ST) =1 
KtNC= 1 
GC TO 441 
427 I XPCN l LI ST) = 1 
KCN SC ( LI ST ) =C 
KLNC=0 

441 IF (IC14UNUNC),EC.IC ) GC TC 439 
KEST(LIST)=1 
KEIGT(LIST) = 1. 

GC TC 448 

439 IF (KLNO) 908,908,910 
5C8 t*EIGT{tlST)=VAUMJNC) 

GC TC 448 

510 VfEIGTIUST)*=l. /VAUNUKC) 

448 CCNTINIE 
447 CCNTINIE 
KLNC*NCEY 
461 LIST*LIST+1 

NFIRSTCUSTJaNCNC 
WLAST (LI ST) = LI 
$WEULfLIST)=$YNiLI) 

I XPCN ( LI ST) *C 

IF UCLAL(LI).EC.TC) GC TC 471 

NEST(LIST>=1 

NEIGT t LI ST) = 1, 

GC TC 403 

471 kEIGT(LIST)»VAL(LI) 

4C3 CCNTINIE 

'4'C'5 : 'v€GN' TTNCE' 

SUBPROGRAM *1 * 

GENERATING CUT PUT LIST CF 5FG 

515 CCNTINLE 

IF INCLT) 514,512,514 
512 CALL TREE (NCCA ,NCCB»NF »NP» KPL ) 
NCUT«NCBY+1 
MCPL«NPL-1 
DC 510 M0P*1,MCPU 


SNA113C0 
SNA11310 
SNA 11320 
SNA 11330 
SNA! 1340 
SNAH350 
SNA 11360 
SNA 1 1370 
SNA11380 
SNA11390 
SNA 11400 i 
SNA 114 10 
SNA11420 i 
SNA11430 | 
SNA 11440 i 
SNA 1 1450 j 
SNA11460 
SNA 1 1470 
SNA11480 
SNA 1 1490 
SNA 11500 
SNA 11510 ! 
SNA11520 
SNA11530 
SNA11540 
SNA 11550 
SNA11560 
SNA11570 
SNA11580 
SNA 115 90 
SNA 11600 
SNA 11610 
SNA 11620 
SNA11630 
SNA 11640 
SNAH650 
SNA 11 660 
SNA 116 70 
SNA 11680 
SNA 11690 
SNA 11700 
SNA 117 10 

smune: 

SNA 11 730 
SNA 11740 
SNA 117 50 
SNA11760 
SNA11770 
SNA 117 80 
SNA 11790 



n n o n 


NI=NP(MOP) 

N2=NP( MOP+1 ) 

USTMIST + 1 

NFI RS T (LI$T)=IE(M»N2) 

NLAST(LIST)=NCLT 
SVMBLL (LIST) *CNE 
I >PCN ( LI ST) =C 
KCNSG ( LIST) =C 
NES7(LIST)=0 

510 fcET GT( LIST) *KS (Nl,N2) 

511 CENTIME 

514 NFI RST U) = NCLT 
NLA$T{1)*NIN 

AE2 IF (LISTG) 486,486,12CC 
1200 kRI TE (6,262) 

262 FORMAT (IX, 3 7H INITIAL TERMINAL EXPONENT BRANCH 

/35HERANCH 1 IF SYMBOL 1 IF SYMBOL ) 

KPT TE f 6,264) 

264 FCRMAT (1X,33H NCCE NCCE CF S VALUE, 

/37H SYMBCL IS INVERTED IS USED) 

DC 12C2 J=1 » LI ST 

kRITE (6,485) NFI RST ( J ) , M AST ( J ) , IX PCN ( J ) , WEIGH J ) , 
/SWELL (J),KCNSC(J),NEST(J) 

485 FCRMAT (3X, 1 2,7X, 12 ,6X ,I2,4X, E12. 5, IX, A3,6X, 12, 14X, 12 ) 
12C2 CCNTINLE 

486 CCNTINLE 

SUBPRCGR AM *J* 

THIS PROGRAM CRDERS SFG INFORMATION 
FOR INPIT TC MAIN PROGRAM 
DC 87 0=1, NBG 
87 MIX ( J ) = J 
KCNLMIST-1 
CO 8C KCN=I,KCM 
Il=KON+l 
IL=KCN 
GO TO 83 
€1 MXLaMlX(lL) 

MIX(IL)=MIX(IU) 

MIX(JL)=MXL 
I L= I L- 1 
IL=IU-1 

IF (IL) 80,80,83 

83 MIU=MIX(!U) 

MIL=MIX(lL) 

IF (NFIRSTCMIU)-NFIRST(MIL)) 81,89,80 

84 MXL=MIX(IL) 

MIX ( I L )=MI X t IU I 
MIX ( XL )=MXL 
Il=IL-l 


SNA 1 18C0 
SNA1 1810 
SNA 11820 
SNA11830 
SNA11840 
SNA11S50 
SNA 11860 
SNA11870 
SNA11880 
SNA1189C 
SNA115C0 
SNA l 1510 
SNA 11911 
SNA 11920 
SNA 11930 
SNA11940 
SNA11S50 
SNA 1 1560 
SNA 11570 
SNA11980 
SNA11590 
SNA12CC0 
SNA 12010 
SNA12020 
SNA12C30 I 
SNA12C40 
SNA12C50 
SNA12060 
SNA 12070 
SNA12C8G 
SNA12C90 
SNA 12100 
SNA 12110 
SNA 121 20 
5NA12T30 
SNA l 21 40 
SNA 121 50 
SNA 12160 
SNA 121 70 
SNA 121 80 
SNA 121 90 
SNA12200 
SNA12210 
SNA 12220 
SNA 12230 
SNA 12240 
SNA 12250 
SNA 122 60 
SNA! 2270 i 
SNA 122 80 -i 


€2 


£9 

80 

13C5 


11=11-1 

If (III £0,8C»82 
NIL *NI X ( II) 

IF (NF1R$T(MIU)~NFIF$T C^IL )) 80,89, £0 

IF (NLAS7(WU)-NLAST(ML))S0»80,B4 

CCN7INLE 

CCNTINtE 

PETLFN 

END 


SLBROLTINE FTREE( TYPX, jex, L8X, INTRE, NO TREE, NOD, NO 8 ) 

C THE FOLLOWING ARRAYS APE ASSCCI ATED WITH THE NETWORK 
C CHARACTERISTICS NBN, AND NSPT (DEFINED IN PROGRAM MAIN-1) 

DIMENSION TYPX (25) , JBX ( 25 ) , L 8X( 25 ) , T NTRE ( 25 ) ,NOTRE E( 2M 
CIMENSICN NF(2f),NF(2£,25),KCCL( 16) 

C****jM**=m******jM;M4:M**:M****************:M ************************** 
CCMN0N/C2/NNG,N8G 
CAT A E ,VV,CV/2HE ,2HVV,2HCV/ 

CAT A R,CL,C,Y,Z/2HR ,2HL ,2HC ,2HY ,2H2 / 

CAT A C-/2HG / 

CC 4C 12=1, NNG 
DC 4G 13*1, NNG 
40 NF (12,13 )=*0 
M*0 
K=0 
KC=C 

CC 1 1*1, NOD 
1 KCOUI )»C 
DC 3 17=1, NCE 
3 NCTREE (175=0 
1*0 

5 1 = 1+1 

IF (TYPX(I).EC.E) GC TC 

6 IF (TYPX(I).EC.VV)GC TC 
8 IF (TYPXCD.EC.CV)GC TC 

GC TO 4 
10 K=K + 1 
14 INTPE ( K)=I 

■.|P VIsiPYlfi 

KCOU JBXn«KCOL( JBX1)41 
KC0L1=KCCLC JEX1) 

NF(4BX1,KCCL1)=LBX(I) 

IBX1=LEX(I ) 

KCOUI 8XI) = KCCUIBX1) + 1 
KC0L2 = KCCUiexl) 

NF (IEX1,KCC12)=JBX1 
NCTREE (I )=1 
IF (K-NOD+1) 2,22,22 


10 

10 

10 


SNA12290 

SNA 12300 

SNA 12310 

SNA12320 

SNA 12330 

SNA12340 

SNA12350 

SNA12360 

SNA12370 

SNA12380 

SNA 12390 

SNA124C0 

SNA 12410 

SNA12420 

SNA12430 

SNA12440 

SNA12450 

SNA12460 

SNA 1 2470 

SNA 124 80 

SNA12490 

SNA12500 

SNA12510 

SNA 12520 

SNA12530 

SNA12540 

SNA12550 

SNA12560 

SNA12570 

SNA 125 80 

SNA 125 9# 

SNA126C0 

SNA 12610 

SNA12620 

SNA 126 30 

SNA12640 

SNA12650 

SNA 12660 

SNA12670 

SNA 126 80 

SNA12690 

SNA127C0 

SNA12710 

SNA 12720 

SNA! 27 30 

SNA! 2740 

SNA 127 50 

SNA 127 60 

SNA 12770 

SNA 127 8© 



2 

IF 

CM) 4,4,12 




4 

IF 

( I-NOB ) 5,12,12 



12 

PaM41 





IF 

(TYFXCM).EC.R) 

GC 

TC 

16 


IF 

(TYPX(M)»EC»G) 

GC 

TC 

16 

17 

IF 

CTYPX{M).EC.CUGC 

TC 

16 

18 

IF 

CTYPX(M).EQ.C) 

GC 

TC 

16 

15 

IF 

CTYFX(M). EC,V) 

GC 

TC 

16 

20 

IF 

(TYPXCM).EC.Z) 

GC 

TC 

16 


IF 

CM-NCE) 12,22, 

22 




16 NlNX*jeX{M} 

NCUTX=ie*CM) 

CALL TREP CNINX»NCUTX,NF,NP,NPL) 

IF (NPl) 21,21,12 

21 1*M 

GC TC 10 

22 CCNTINLE 
RETLRN 
END 

C 

SLBROLHKE TREP { MN ,NCUT , NF , NP, NPU 

C*****4##*** **************** ***** ************ a*************************** 
C THE FOLLOWING ARRAYS ARE ASSCCI ATEC WITF TFE NETWORK 
C CHARACTERISTIC N8MDEFI NE C IN PRCGRAF MAIN-1) 

DIMENSION JX(25) ,NP{25 ), JMEMC25)»KMEM< 25) 

DIMENSION NF{25,25) 

C#*##**** *** ******** « ******* **** ***** ************************************ 
CCMMCN /C2/NNG»NBG 
OC ac 15=1, NNG 
JM I5)=C 
NP( 1 5 ) =0 
JMF M ( I 5) =0 
€0 KME M ( 1 5 ) =0 
NPL =C 
JXM)»MN 
4>C2) = NIN 
1=1 

' J =N I N 
NF(I)«NIN 
20 K=0 
25 K*K + 1 

IF (NF t J»K1— NCLT) 30,50,30 
30 IF CNF CJ»K) ) 34,32,34 
32 IF CJ-MN) 60,100,60 


FLOWER CHECK 
34 N JK=NF i J,K) 

IF CNJK-JXCI »| 


45,25,45 


STORE AND REMEMBER VERTEX 


SNA12790 
SNA 12800 
SNA12E10 
SNA1282C 
SNA12S30 
SNA 12840 
SNA12850 
SNA12860 
SNA12870 
SNA12880 
SNA12890 
SNA125C0 
SNA12910 
SNA12520 
SNA12530 
SNA 12540 
SNA 12550 
SNA 12960 
SNA 12570 
SNA12580 
SNA 12990 
SNA13COO 
SNA 13C 10 
SNA13C20 
SNA 1 3030 
SNA13040 
SNA13050 
SNA13C60 
SNA13070 
SNA 1308# 
SNA13C50 
SNA13100 
SNA13110 
SNA! 3 120': 
SNA13130 
■SNAiJlAO 
SNA 131 50 
SNA13160 
SNA 13 170 
SNA13180 
SNA13190 
SNA1320C 
SNA13210 
SNA1322G 
SNA 13230 
SNA 132 40 
SNA 132 50 
SNA 132 60 
SNA 132 70 
SNA 13280 



45 1*1+1 

NFC I ) =KF ( J , K ) 

JMEMU)*4 
I A-I+l 

JX( 14 } *NF { J , K ) 

42 J*NF(J,«) 

KFE Mix )*k 
GC TC 20 
C 

C BACK57FF 

€0 J=JMEM U ) 

K=K W EV (I) 

1=1-1 
GC TC 25 
C 

C FINAL PATH VERTEX ANC PATH LENGTH 

50 11=1+1 

N F C H)=NCUT 
62 NPL =1 1 
ICC CCNTIME 
RETLPN 
END 


SNA13290 
SNA133CQ 
SNA13310 
SNA13320 
SNA13330 
SNA 13340 
SNA 13350 
SNA13360 
SNA13370 
5NA13380 
SNA1339C 
SNA134G0 
SNA 13410 
SNA 13420 
SNA13430 
SNA 13440 
SNA13450 
SNA13460 
SNA13470 
SNA13480 
SNA13490 
SNA135CQ 


C SNA13510 

StBPCLTINE ARRAY ( JSIC- »XCCN, JXPO, JKOC, FCLY,LIL,KIK ) SNA13520 

C**************************************** 44 4 s*************************** SNA 13530 


C THE POUCHING ARRAYS ARE ASSCC1ATEC WITH THE NETWORK SNA13540 

C CHARACTERISTICS NTC, AND NEXPS ( DEFINED IN PROGRAM MAIN-1) SNA13550 

DIMENSION MSCRTU2) ,KSCRT( 125), POLY (12,125) SNA13560 

£**#*#4*#*** ****** 4 * 4 *4*4444 4444 44 4444 4 444 4 4 4444444*444*4444*44*4*44444* SNA 13570 


CCMWCN/C1/NSCRT,KSCPT 
COMMON /C3/NEXPS, NT C 
MMX = 0 
NNX = C 

IF (KIK-1) 3,22,3 
3 MMU = KIK-1 
CC 2 MM*l,MMt 
MMX=MMX+1 

IF (JXFC-MSCRTIPM) ) 2,10,2 
2 CONTINLE 

' '" 22 'M'SO'Rtt KtK I.* JXPC . 

MMX=KIX 

KIK=KIK+I 

IF (KlK-NEXPS-1) 1386,1385,1385 

1385 WRITE(fc,1387) 

1387 FCRMAT (lX f 43H S-PCWEP EXCEECS L+F+T-+NC-E ASE E+MENS+OMS 
/16HCCNTAINING NEXPS) 

1386 CONTINLE 

10 IF CUt-1) 11,24,11 

11 NNU*tI t-1 

OC 12 NN=1, NNU 


SNA 13580 
SNA! 3 5 90 
SNA13800 
SNA13610 
SNAilitO : 
SNA13630 

SNA13650 
SNA 13 660 
SNA 13670 
SNA 136 80 
SNA13690 
SNA137CG 
SNA 137 10 
SNA 137 20 
SNA 13730 
SNA 13740 
SNA 13750 
SNA 13760 
SNA 13770 
SNA 137 80 



12 

24 


1366 


NNX=NN>+1 

IF ( JKCD-KSCRT (NN ) 1 12,20,12 
CENTIME 
KSORT ( LIL J = JKCC 
NNXMIL 
LIL =L I L+l 

IF (Lll-NTO-1) 1367,1365,1365 
WRITE (6,13661 

FCRNAT (1X,46HNC, CF TERRS IK CUTPUT EXCEEDS LIMIT-INCREASE , 
/25HDI PENSIONS CCNT AIM KG NTC) 

1367 CENTIME 

20 PCLY{MNX,NNX)=PCLY(WMX,NNX)+XCCN*t-l. )**J$IG 
R8TLRN 
EKO 
C 

S18PCLTI KE DEC COE ( KCC , KCCY, I Z , FE, JZ » S EY BOL, KOCF, KCCI , I TOP ,KPft SI S 1 
C***#***********#***:**#****:***#***:* ********* X *****##****#***♦*♦*******# * 

C THE FOLLOWING ARRAYS ARE ASSCCIATED WITH THE NETWORK 
C CHARACTERISTICS NSPT, and NTC (DEFINED IN PROGRAM MAIN -1) 

DIMENSION I TCP (1251 , S E PEC L( 16 ) , KCCF { 161,KOCI(16) 

C * * 4 * * * * * * * 4 * * * * *e * * * * * * * * * * * 3} * * * * * * * * * * * * * * * 4 * * * * * * * * * * * * * * * * * # * * 5$C * * # * * * 

CCWPON /C4/NSFT 
I2=C 

P*KEASIS-1 
DC 3 J=1»K0C 

CALL I AND (KCCY,M,IFCWER,1,KEASIS) 


( IPCWER) 3,3,2 


IF 

2 IF (SEPBCLUl.EC.FB) GC TC 4 
12*12+1 

IF (I Z-NSPT—l) 1371,1370, 1370 

1370 WRITE (6,1372) 

1372 FCRPA7 (1X,48HNC. CF 5YPBCLS PER 
/26H0IPENSICNS CONTAINING NSPT) 

1371 CCNTINtE 
KC0F(I21 = IPCViER 
KCOI (2 21*4 

GC TC 3 
4 ITOP{ JZ) = l 

3 KCOY-KCDY/KBASIS 
. RETLRK 

END 


SLBRCLTINE IANC (PX, NX ,FN, IFLAG,KEA > 

p-ny: . ■ . 

'fc«KX" 

IF (IFLAG.EO.Q) GC TC 5 
KEASIS*KEA 
CC 6 K*1 ,64 
KBASIS = KEASIS/2 '■ 

IF (K8ASIS-1) 6, 


TERM EXCEEDS GUTPLT- INCREASE , 


i , 8 , 6 


SNA13790 

SNA138C0 

SNA 138 10 

SNA 13820 

SNA 13 830 

SNA13840 

SNA1385C 

SNA 138 60 

SNA13870 

SNA13880 

SNA 13890 

SNA 1 3900 

SNA1391 0 

SNA 13920 

SNA13930 

SNA 13940 

SNA13950 

SNA13960 

SNA13970 

SNA13980 

SNA13990 

SNA14CC0 

SNA14C10 

SNA 14020 

SNA14030 

SNA 14040 

SNA14C50 

SNA14C60 

SNA14G70 

SNA14080 

SNA14C90 

SNA141C0 

SNA14U0 

SNA 14 120 

SNA 14130 

SNA 14140 

SNA 141 50 

SNA 14 160 

SNA 141 70 

SNA 14 180 

SNA 14190 

SNA 14200 

SNA14210 

SNA14220 

SNA 142 30 

SNA14240 

SNA 142 50 

SNA14260 

SNA 142T0 

SNA-14280 



CONTI NUc 
LAST =K 
GO TO 7 
S LAST =25 

2 *> IS THE MAXIMUM NO. OF NODES IN SFG 

NTHT WO= l 
DO 10 1=1, LAST 
NTHTWG=NTHTWO*2 
NTEMP=N/2 
NTEMP=NTEMP*2 
IF(N-NTEMP)3,1,3 
MTEMP=M/2 
MTEMP=MTEMP*2 
I F ( M-MT cMP ) 2 »L ,2 
2 MN*MN+NTHTW0/2 
I F ( I FLAG ) 1,4,1 
M=M/2 
N=N / 2 

0 CONTINUE 
RETURN 
END 


SNA 14290 
SNA 143 00 
SNA 143 10 
SNA 14320 

CHANGE AS NEEDED SNA 14330 

SNA14340 
SNA14350 
SNA 14360 
SNA14370 
SNA 14380 
SNA1439Q 
SNA 14400 
SNA 144 10 
SNA14420 
SNA 14430 
SNA 14440 
SNA 144 50 
SNA 14460 
SNA 144 70 
SNA 14480 
SNA 14490 
SNA145G0 



// FOR SNAP 

♦NON PROCESS PROGRAM 

*10CS( TYPE WRITER, CARD, PLOTTER) 

♦ONE WORD INTEGERS 

C 

C 

C THIS PROGRAM FINDS THE SYMBOLIC TRANSFER 

C FUNCTION OR I MM ITANCE FUNCTION OF A 

C LUMPED LINEAR TIME INVARIANT NETWORK. 

C 

EXTERNAL PART 3 

DIMENSION NS US, 15),NFU5, 15), 1B( 15, 15) 

DIMENSION T YPB( 15), JB( 15) ,LB{ 15) , SYM { 1 5 ) , I QUAL (1 5 ) , VAL ( 1 5) 
DIMENSION NUML( 15), I NTEE ( 1 5 ) , L INC ( 15 ) , I VV ( 1 5 ) , I CV { 1 5 ) 

DIMENSION NOTRE C 15), INTREI 15 ),NUMX ( 15), TYPXI 15) ,JBXU5),LBX< 15) 
DIMENSION SYMX( 15), I QUA XI 15),VALX(15),NUMLXU5) 

DIMENSION KONS (8 ) , KO DI { 8 ) , SEMBLI 8 ) , KODF (8) 

DIMENSION NFIRS (3 0) , NLA ST( 30) , I XPON { 30 ) , WE I GT { 30) 

DIMENSION MS CRT! 5) ,<SORT { 40 ) 

DIMENSION S YMBU ( 30) ,K0NS0(30) ,NEST( 30) 

COMMON NBN, N3 G, NTO, NSPT , NEXPS ,NP AC, NRI ,NEON, NRS 
COMMON NNGt NSPTU,N3TG 

COMMON NOD,NQB,KBASI,L!STG,LISTC,LlSTP 
COMMON N I N , NO UT , N OD A , N3DB 

COMMON NFIRS, NLAST, I XPON , WE I GT, S YMBU ,KQNSQ, NE ST, LI ST 
COMMON KODI »K ON 5, KODF, SEMBL ,MSORT ,KSOR T 
COMMON L I L , K IK ,KUO ,1 Z 
COMMON NCI 
NOUT =0 

CALL SUB1UB,NS,NF, TYPB, JB,L8 ,SYM , I QUAL, VAL ,NUML , INTEE ,LINC ,KLU, 

1 1 W, ICV , MNB ,M0,LD,N3TRE,INTRE,NUMX,TYPX,JBX,LBX,SYMX * IQUAX , VALX, NU 
1MLX) 

IF{MNB)1, 1,2 
2 .STOP 

1 CONTINUE 

CALL SUB2UB, NS,NF, TYPB, JB, LB , SYM , IQUAL, VAL ,NUML, INTEE»LINC,KLU, 
UVV, ICV, MO, LO, NOTRE, INTRE,NUMX,TYPX, JBX,LBX, SYMX, IQUAX, VALX, NUMLX) 
CALL LINK I PARTS) 

END 

// DUP 

♦STDREC I SNAP SNAP 

♦LOCAL ( SUB! , FREP, FTREE ) ,( SUB2,TREP) 

♦CCENO 


// FOR SUB 1 

SUBROUTINE SUB1 { I B, NS, NF, TYPB »UB , LB, SYM, IQUAL, VAUNUMl, INTEE, 
lLINC,KLU,IVV,ICV,Mf«,MO,LO,NOTRE,lNTRE,NyMX*:ffPX,UBI,LiX»S¥MX,iaUA 
IX, VALX, NUMLX I 
REAL IBLAN 
DIMENSION J ROW (15) 

DIMENSION 5N { 6 ) 

DIMENSION NPI15) 



u u o u u o u u u u u u u oou 


DIMENSION SM ( 9 ) 

DIMENSION NS(15,15)»NFI15,15), I SI 15,15) 

DIMENSION NUMLI 15 ),1NT£EI 15 ) , L INC I 15 1, IVVI 1 5) , I C V 1 1 5 ) 

01 Me NS I ON TyPBI 15), JBI 15},LBI L5) , SYM { 1 5 ) , I QUAL I l 5 ) , VAL I 15) 
DIMENSION SYMXI 15 ), IQUAXI 15) , VALXI 15 ) , NUMLXI 15) 

DIMENSION NOTRE! 15), INTREI 15 ) , NUMX I l 5 ) , TYPXl 15) , JBX 1 15) , LBXI 155 
DIMENSION N FI RS { 30) ,NLAST( 30) , IXPONI 30 ) , WE I GT ( 30 ) 

DIMENSION SYM8U I 30) ,KQNS0I30) , k jEST( 30) 

DIMENSION K0NS{8),K0DI(8 ),StM8L(8) ,K0DF(8) 

DIMENSION MSORTI 5) ,< SORT ( 40 ) 

COMMON NBN,NBG» NTG, NSPT, NEXPS ,NPAC, NRI ,NEON,NRS 
COMMON NNG»NSPTU» NBTG 

COMMON NOD, NOB, K8 AS I,LISTG,LI STC,LISTP 
COMMON NIN,NOUT »NODA,NODB 

COMMON MFIRS, NLAST, I XPON, WE IGT, SYMSU ,KONSQ» NEST, LIST 
COMMON KOD I , KONS ,KODF, SEMBL , MSORT , KSORT 
COMMON LIL»KI« ,KOO,I Z 

COMMON NCI 

DATA SMI I) , SM { 2) ,SM{ 3 ) / * AAA * , • BBB* , *CCC •/ 

DATA SMI 4 ) , SMI 5 ) , SM { 6 )/ * ODD*, f EEE * , * FFF' / 

DATA SMI 7), SMI 8), SMI 9)/* PPP‘, *QQ3*, •RRR ' t 
DATA SNI I) ,SN< 2) ,SNI 3 ) /' K1 * , ’ K2 ' , ’ K3 * / 

DATA SNI 4), SNI 5) ,SN( 6)/»K4 # , *K5», »K6* / 

DATA FB/» FB*/ 

DATA IBLAN/' * / 

DATA CC,CV,VV, VC/'CC *, 'CV* ,* VV* ,"/C* / 

PRELIMINARY INPUT INFORMATION 
NBN=NUMBER OF BRANCHES IN NETWORK. 

NSG=NO* OF BRANCHES OF SFG 
NTO=NQ. OF TERMS IN OUTPUT. 

NSPT=NO . OF SYMBOLS PER TERM. 

NEXPS=NQ. OF DIFFERENT POWERS OF S 
NPAC=NO. OF PATHS PLUS CIRCUITS. 

NRI=MAXI MUM NUMBER 3F NONTOUCHING LOOPS. 

NCI=MAXIMUM NUMBER OF LOOPS NOT TOUCHING AMY GIVEN LOOP 
N£0N=NUMBER OF NON TOUCHING PAIRS OF LOOPS 
NRS=NUM8ER OF REPEATED SYMBOLS I NUMBER OF NETWORK 
ELEMENTS ASSIGNED SAME SYMBOL) 

N8N = JL5 
NBG=30 
NT0=40 
NSPT=8 
NEXPS- 5 
NPAC=125 
NRI = 8 
NRS=9 

■■ N€l*4B % V.- ■ : ^ ; 

NEQN' ; ; »40G : '. ; - R- 

KJ=0 

NSPTU= NUMBER OF SYMBOLS IN NUMERATOR OF EACH TERM 
N8TG=NUM8ER OF BRANCHES OF TREE OF SFG 
NUMBER OF NODES IN SFG 
NNG=NBN 
NSPTU=NSPT/2 
NBTG=NBN 



*R1TE(1,260) 

C THE NEXT 6 CARDS ARE FOR PROBLEM IDENTIFICATION ON THE 1ST DATA CARD 

READ (5,1150) {WEIGT(J),J = 1, 72) 

1150 FORMAT ( 72AL 5 

IF (WEIGH U-IBLAN) 9001, 9 0 00, 9001 

9000 MN6 = 1 

GO TO 9998 

9001 CONTINUE 

WRITE ( 1,1160) (WEIGT(U),U = 1, 71) 

1160 FORM AT { 1X.71A1//) 

OU 1151 J= 1, 72 

1151 WEIG1 ( J)=0. 

RE AD (5, 1240) N3D,!i0 9, KBASI ,LI ST3, LI STC ,LI STP 
1240 FORM AT ( 315, 5 X, 31 1) 

I F{ K8AS I ) 135 7, 1357,1358 
1357 KBASI=4 
1358 CONTINUE 

REA0(5,1)NINN,NG0UT 
1 FORMAT (215) 

WRIT£(l,720)N3D 

720 FORMAT (2X» * NUMBER OF NODES**, I 3) 

WRITE ( 1,721) NOB 

721 FORMAT ( 2X » * NUMBE R OF BRANCHES* * , 1 3 ) 

IF(LISTG)723,723,722 

722 CONTINUE 

C LIST SFG 

72 3 IF (LISTC) 725,725,724 
724 CONTINUE 
C LIST ALL CIRCUITS 

72 5 IF ( LI STP) 72 6, 72 6 , 727 

727 WRITE ( 6, 728) 

728 FORMAT! 2X, * LIST ALL PATHS FROM NODE * » I3,2X, *T0 NODE * ,13) 

726 WRITE{ 1 ,729 1 N INN 

729 FORMAT ( 2X » 'NO. OF INPUT TERMINALS* S I 3) 

WRITE! 1,730) NO OUT 

730 FORMAT ( 2X, * NUMBER 3F OUTPUT-TERMINALS = *,131 
WRITE! 1,850) KBASI 

850 FORMAT (2X,* BASE FOR SYMBOL CODES* *,I 4) 

C 

C SUBPROGRAM *A* 

DO 152 IG*1,NBS 
NEST( IG ) *0 
152 KQNSGf I G) =0 

00 710 IC=1,NNG 
DO 713 IK* 1, NNG 
NS( IC» IK ) =0 
710 NF( I C» I K) *0 
LIST =1 
M0=0 ■ : 

L0*0 

I XPONC 1 ) =D 
WEIGT! l)*-l. 

SYMSUC 1 ) = FB 
KONSOt 1 ) *0 
NE ST ( 1 ) * l 
DO 5 11=1, NNG 



5 JROW! I 1}=0 
DU 528 1=1, NOB 

READ{ 5,9} TYPX ( I ) , fUMX{ I ),J6X( I),LBX! I) ,SYMX(I) , 

1 IQUAX(I J » VALX! I) f NUMLX(I) 

I F ( TYPXC IJ-CC) 9036 ,1 300, 9036 

9036 IPCTYPXt I > — C V } 9037 ,1 300,9037 

9037 1F(TYPX{ I) -VV) 9038,1 300,9038 

9038 IF(TYPXm-VC) 1301,1300, 1301 

1300 I F ( NUMLX ( I J ) 1301,130 2,1301 
130 2 WRIT t( 6, 1303 ) 

1303 FORMAT! IX, ' ***ERRDR***CONTkOL SPECIFICATION FOR OEP. SOURCE 
1 MISSING*) 

GO TO 7000 

1301 CONTINUE 
528 CONTINUE 

GO TU 7777 
7000 NOB=0 
MNB = 1 

GO TO 9998 

9 FORMAT ( A2, 13,215, IX , A3, A 1 , E 12 . 5, 13) 

7777 CONTINUE 
K J = 0 
MMM= 1 

I F ( NINN- 1 } 222, 22 2, 33 3 
333 CONTINUE 
K J= 1 

222 R£AD!5,224)NIN,K 

224 FORMAT ( 21 5) 

WRI TE(1,225)NIN 

225 FORMAT! IX,* ELEMENT NO. OF SOURCE =*131 
IF! KJ )936, 936, 937 

937 . N=N1MN-T 

DO 226 1=1, N 
READ! 5, 227 )N I » M 
227 FORMAT! 21 5) 

WRITECl, 928)1, N1 

928 FORMAT! IX, ‘ELEMENT NO. OF SOURCE < ‘ , I 2, *) = »,I3) 

IF!K)929,929, 930 
929 "IF t Ml 93 1 ,93 1 * 932"' ; 

931 TYPX !NI )=VV 
GO TO 935 

932 TYPX! NI } =VC 
GO TO 935 

930 IF{M)933, 933,934 

933 TYPX! NI ) =CV 
GO TO 935 

934 TYPX! HI )=CC 

935 SYMX{ NI ) =SN (MMM ) 

NOMLX(NI}=NIN 

MMM=MMM+1 

226 CONTINUE 

936 CONTINUE 

KKK = 1 

5559 CONTINUE 

WRI Tea, 260) 

IF! KKK-1 ) 2603 ,2602, 2603 
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2602 WRITE? 1,2600) 

2600 FOR MAT ( 30X, * MET WORK * ) 

GO TO 2604 
2603 *RITE( 1,2601) 

2601 FORMAT ?30X, 'MODIFIED NETWORK* ) 

2634 CONTINUE 

WRITE? 1,261) 

261 FORMAT { IX, 'ELEMENT ELEMENT INTIAL TERMINAL ELEMENT ELEMENT ELEMENT 
1 NO.*) 

WRI T t ( 1 , 262 ) 

262 FORMAT? IX,* TV PE NUMBER NODE NODE SYMBOL VALUE OF CON 

1TR0L ' ) 

DO 601 M=i,NOB 

631 WRITc(l»600) TYPX(M) , NUMX? M ) , J 8X { M ) , L BX ?M) , S YMX { M } , 

1 IQUAX(M) , VALX? M) ,NUMLX?M ) 

600 FORMAT (4X»A2*6X,I2,5X,I2»6X,I2,6X,A3,A1 ,E12. 5, 2X, I 2) 

CALL F TREE? TYPX , USX , LBX, I NT RE, NOTRE ) 

KLU=0 

DO 655 11=1, NNG 
INTEL? 111=0 
555 JROW? ID =0 

SUBPROGRAM *B* 

WRITE? 1,518) 

518 FORMAT? 30X,13HTREE SELECTED) 

NUMU=N0D-1 
DO 21 NU=1 » NUMU 
10=1 NTREt NU ) 

NUMC=NUMX? 10) 

T YPB (NUMC ) =TYP X? 10) 

J8? NUMC ) =J BX ( 1 0 ) 

LB? NUMC ) =LBX { 10) 

$YM?NUMC)=$YMX?IJ) 

I QUA L ? NUMC ) = I QUA X { 13) 

V AL ? NUMC ) = VA LX 1 1 0 ) 

NUML 1 NUMC) =NUMLX i 1 0) 

INTEE?NUMC)=1 

WRITE? 1 , 5 17 ) TYPB ? NUMC ) , NUMC , JB (NUMC ) , LB (NUMC ) , SYM? NUMC ) , 

II QUA L ( NUMC ) , VAL? NUMC ) # NUML ? NUMC ) 

517 FORMAT (4X,A2, 6X.I2, 6X, 1 2 , 6X, I 2 , 6X , A3 ,A 1, E 12. 5, 2X , 12 ) 

KLU=KLU+ 1 
LING? NUMC ) =0 

I F? T YP8 ? NUMC )-VV)3,9039»3 

9039 M0=MQ+1 

I VV ( MO) =NUMC 

3 I F { TYPB ( NUMC ) -CV K ,9040, 4 

9040 LQ=LU+l 

ICV ? LO )=NUMC 
4 JF= JB( NUMC ) 

LF=LB?NUMC) 

IB( JF, LF )=NUMC 
IB(LF» JF)=NUMC 
JROW(JF)=JROW( JFJ+l 
JR0J=JROW( JF) 

NF{ JF,JROJI*tF 
NS? JF,LF)=1 



JROW ( LF } = JROW( LF ) + l 
JRQL=JROW CLP) 

NF ( LF, UROL) =JF 
NS( L F , JF ) ~-l 
21 CONTINUE 

IF { KKK- 1 ) 6660 , 666 L, 6660 
6661 CONTINUE 

I FINOOUT- 1)8000, 211 ,8000 
8000 MODA=NOD 
MM= i 

WRI TE ( 1 ,260 ) 

22 RE AD ( 6, 12 1 NOUJT, MOCA A, NQDB8, K 
WRITE! 1,260) 

I F ! NOUUT ) 5561 ,5 560, 5561 
5561 WRITE! 1,5562)KJ, NOUUT 

5562 FORMAT { IX, * ELEMENT NUMBER ASSOCIATED WITH OUTPUT { * , 1 1, * } = * , 13) 
SO TO 5565 

5560 WRITE! 1,5563) KJ , NOD AA 

5563 FORMAT! IX, ‘PDSITIVE OUTPUT VOLTASE TERMINAL!* ,11, *)=*I3) 

WRITE! 1,5564) KJ,NGDBB 

5564 FORMAT (IX, ‘NEGATIVE OUTPUT VOLTAGE T ERMI NAL < * , 1 1 , * ) =* , 1 3 } 

5565 CONTINUE 
KJ=KJ+ 1 

1F( NOUUT 1113,113,14 
14 N08=?N0B + 1 

IF { K ) 15,15,16 

15 TYPX(NQB) =VV 
GO Tul 1 1 7 

16 T YPX { NOB) =CV 
1117 NUMX(NOB) =NOB 

JBX(NOa)=NOO 
LBX ( NOB )*=N0D+1 
SYMX (NOB ) =SM !MM) 

MM*MM+ 1 

NUMLX! NOB) =NOUUT 

N0D«N00+1 
GO TO 17 

113 CALL FREP ( NQD AA ,N0DB8,NF, NP, NPL 1 
NPLL=NPL"1 
00 18 I = 1 , NP LL 
N0B=N0B+1 
TYPX! NOB) =VV 
NUMX!NOB)=NOB 
J8X{N0B) =NOD 
LBX ( NOB )= NOD*- 1 
SYMX { NOB ) =SM (MM) 

NP 1=NP( I ) 

NP2=NP( 1+1) 

NUMLX! NOB) =1 B{ NP 1, NP 2 > 

NOO-NOD+ 1 
18 CONTINUE 

MM=MM*l . ' 

17 NDDB=NQD 

IF! NOOUT-1 120 ,20, 8001 
8001 NOOUT=NOOUT- 1 
GO TO 22 



211 RE AD C 5* 12) NQUT, SODA , NOOb, K 
WRITE! 1,260) 

I F { NQUT 16550, 5551,5550 
5560 WR 1 1 E ( 1 , 5555) NOUT 

5555 FORMAT! IX, * ELEMENT NUMBER ASSOCIATED WITH OUTPUT=‘ , 13 ) 
GO 10 5660 

5551 WRITE! 1,5556)^004 

5566 FORMATdX, ‘POSITIVE OUTPUT VOLTAGE TERMINALS ,13) 

WRITE <1 , 5557) NODB 

5557 FORMATdX, ‘NEGATIVE OUTPUT VOLTAGE TERMINAL**' , 13) 

GO TO 6660 
20 KKK=KKK- 1 

GO TO 5559 
12 FORMAT (41 5) 

6660 00 13 I LL=1 , NDD 
JROi=JROW{ ILL ) +1 
13 MF ( ILL, JROI)*0 
WRIT t( 1,260) 

260 FORMAT!//) 

WRITE! 1,715) 

715 FORMAT! 30X, • SFG /) 

9998 RETURN 

END 


// FOR SU82 

SUBROUTINE SUB21I8, NS,NF,TYPB , JB, LB, SYM, I QUAL , VAL, NUML , INTEE, 
1LINC,KLU,IVV,ICV,MC, LO ,MQTRE , I NTRE, NUMX ,TYPX , JBX, LBX , SYMX , IQUAX, VA 
1LX,NUMLX) 

DIMENSION I NT RE 1 15) ,JB! 15), LB! 15) 

DIMENSION TYPB < 15) ,TYPX( 15) , JBX! 15 ) , LBX (15 ) , SYMX! 15) 

DIMENSION CVAH30) ,4 APYI 30 ) , TYPE! 30) 

DIMENSION I ) UA X! 15), INTEE! 15 ) ,L INC ( 15 ), NP( 15) 

DIMENSION NS (15, 15 ), NF{ 1 5, 15 ) , IB! 15, 1 5) 

: DIMENSION KONS! 8) , KDDI !8 1 , SEMBL! 81 *K30F C8) 

DIME NS: LON NFIRS(30J ,NLAST( 30 ) , IXPON ( 30 ), WEIGT ( 30 ) 

DIMENSION MSORT! 5) ,<S0RT!40) 

DIMENSION $ Y4SLM 30) ,K0NS0!30) , NEST! 30) 

DIMENSION VALX! 15), NOTRE! L5),SYMU5) , I QUAL! 15) ,VAL( 15} 

DIMENSION NUMX (15) ,IVV< 1 5) , ICV ( 15 ) ,NUML ( 15) , NUMLX ( 15 ) 

COMMON NBN ,NBG, NTO, NSPT, NEXPS * NPAC, NRI ,N£QN,NR5 
COMMON NNG,NSPTU,NBTG 

COMMON NOD,NOB,KBASI,LISTG,LISTC,LISTP 
x COMMON NIN,NDUT ,NODA, NODB : 

COMMON NFIRS, NL AST, IXPON, WEIGT, SYMBU,KONSQ, NEST, LI ST 
COMMON KODI,<ONS,KD OF, SEMBL, MSORT, KSORT 
. COMMON LIL »K IK ,K00 »I 2 
COMMON NCI 

DATA E,CI,CC*CV, VV,VC/*E * , *1 1 , ‘ CC • , ‘C V' , • VV* , • VC • / 

DATA Y, G, C * I Q, R, CL »Z / * Y • , ‘G • , • ,*=*'' , • R * ,‘L • , *Z ♦/ 

DATA ONE/* 1*/ 

LINKED 
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SUBPROGRAM *Z* 

THIS PROGRAM GENERA TES SIGNAL FLOW GRAPH INFO 
FROM BRANCH NODE TO LINK NODE 
NOBy -NOB 
LSI CONTINUE 

N c S = G 

L0N»0 

IF ( KLU-NOB ) 532 , 360 ,5 32 
532 LINK=LINK+I 

IFINOTREILINK} )5 34,534, 532 
534 NUMC-NUMXC LINK! 

TYPE t NUMC ) =TYP X( LIN< ) 

JK= JBX (LINK) 

LK=LBX( LINK) 

SYM( NUMC) =$YMX( LI N< ) 

I QUAL { NUMC ) = I QU AX (L INK) 

NUMB=NUMLX(L INK) 

CVAL( NUMC ) = VALX { L INK ) 

TYP2=TYP6I NUMC) 

CYALU=CVAL { NUMC) 

KLU=KLU+ I 
L INC { NUMC ) =1 
KUEPS=0 
KANS0=3. 

IF{TYPE(NUMC)-CL)904l, 117,90 41 

9041 I F( TYPE { NUMC )-G) 90 42 » 119,9042 

9042 I F { TYPE ( NUMC )- Y ) 9043 , 1 19, 9043 

9043 IF{TYP£{ NUMC )-R) 9044 , 700, 9044 

9044 I F< TYPE I NUMC ) -Z) 90 45 ,700 ,9 0 4 5 

9045 IF (TYPE! NUMC )-C) 9045 , 121,9046 

9046 CONTINUE 
K0EPS=1 

IF( TYPE ( NUMC) -E ) 9047, 123, 9047 

9047 I FI TYPE ( NUMC )- Cl } 904 8, 123,9048 

9048 IF { TYPE! NUMC ) -VC ) 90 49, l 65,9049 

9049 IF I TYPE I NUMC) -CC ) 117,265,117 
117 IXPS=~1 

- KANS'O* l 
GO TO 123 
119 IXPS=0 

GO TO 123 
700 IXPS=0 
KANS0=1 
GO TO 123 
121 IXPS=1 

123 CALL TREP { JK ,LK, MF ,NP, NPL) 

V..; 

149 L0N=L0N+1 
NP 1=NP I LON) 

NP2=NP(LQN+1 ) 

/O 7 INIT = IB(NPI*NP2) 

109 SIGH=NS(NP1,NP2) 

IF(KD6PS)167,167,169 
167 I F( lOUALt NUMC HI Q) 9002, 1 li, 9002 
9002 /CONTINUE 
■■ NES = 1 
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CON bT=5 IGH 
GO TO 125 

111 CONS T= SI GH*CVALU 
125 L I ST=LI ST+ 1 

I F ( NfcS ) 502 » 503 ,502 

502 NfcSTUIST) = l 

503 K9NSG{ L I ST ) = KANSU 
NFIRS(UST1«INIT 
NLAST<L1ST)=IFIN 
SYMBUtLIST)=SYM{ 1FIM i 
I XPONC LI ST ) = I XPS 

I F ( KONSOI LIST) >505,505*504 

504 WEI GT ( LI ST ) =1. /CuNST 
GO TO 506 

505 WEIGT(LIST). CONST 

506 H4PY CNUMC ) =L 1ST 
127 FORMAT! 315, E 12.5) 

129 FORMAT { A4 ) 

SUBPROGRAM *D* 

THIS PROGRAM GENERATES SIGNAL FLOW GRAPH INFO. 
FROM LINK NODE TO BRANCH NODE 
169 CONTINUE 

IF( TYPBl INITJ-E) 9050 ,201,9050 
905 0 IF( TYPBl INIT) -Cl 19351,201,9051 

9051 I F { T YP8( INIT)- VV 5 9 05 2 * 20 1,90 52 

9052 IF (TYPBl INIT )-CV ) 905 3 * 201, 90 53 

9053 CONTINUE 
LIST*LIST+1 

IF(TYPBIINIT)-R) 9054,133,9054 

9054 IFITYP8UNIT )-Z) 90 55 , 133,9 0 54 

9055 IF( TYPBl INIT )-G) 90 56, 702,9056 

9056 IF(TYP8( INIT) -Y)9 05 7,702 *9057 

9057 IF(TYPB( INIT) -CL) 9058,135,9058 

9058 IF(TYPB( INIT )-C) 133, 137, 133 
133 I XPQNC LI ST ) = Q 

GO TO 141 
702 1XP0N(LIST)=0 
KQNSOl LIST ) = 1 
GO TO 141 
135 IXP0N{LIST)=1 
GO TO 141 

137 IXPONl LI ST )=— 1 
KONSOI LI ST ) = 1 

141 IFIIUUALI INIT)-IU) 9999,139,9999 
9999 CONTINUE 

:nesji li 

WEIGT l LI ST) =-l »*$I GH 

/ go T b":‘ i.'4'tr ; - 

139 1FIK0N5QI LIST) }6G8,608,607 

607 WEI GT(L 1ST )=-SIGH/VAL( INIT) 

' GO TO 147 

608 WEIGT ( LIST ) =-S IGH*VA L( INI T) 

147 NFIRSCL1ST)=IFIN 

NL AST (LIST)* IN IT 
SYMBUf LIST ) =$YM( INI T J 



201 NPLA=NPL-l-LON 

I F( NPLA ) 151 * 15 It 149 
C 

C SUBPROGRAM »E ' 

C THIS PROGRAM SETS JP SFG INFO. FOR YC 

C TYPE CONTROL SOURCES 

165 NUNO=NUMB 

IF ( 1NTEE ( NUMB ) ) 16 3, 163, 161 
163 LIST=LIST+1 

NFIRS(LIST)=NJMB 
NOBY=NOBY* 1 
SYMaU(LIST) = SYM{ NUM3 ) 

NLASTt LIST }=NOBY 
NUNQ=N08Y 

I F ( TyPE(NUMB)-Y) 9059, 912, 9059 

9059 I F { TYPE ( NUMB HG) 90 60 ,912, 906 0 

9060 IF (TYPE! NUMB )-C) 9061,914,9061 

9061 IF (TYPE (NUMB) -CL 19 05 2,916,9062 

9062 CONTINUE 
KUN0=0 

I XPON( LI ST } =0 
GO TO 918 
912 IXPOMUST )=Q 
KUNO= 1 
GO TO 918 

914 IXPONUIST )=~1 
KUNO= 1 
GO Tu 918 
916 I XPONC LIST ) = 1 
KUN0=0 

918 IF { I QUAL ( NUMB) —IQ) 9063,920,9063 

9063 CONTINUE 
NEST ( LI ST ) =1 
WEIGTILI $T)=1» 

GO TO 209 

920 IF(KUN0)922, 922,924 
922 WEI GT( LI ST ) *CY AL ( NUMB ) 

. GO: TO 209 

924 WEI GT( LIST )= 1* /CVALC NUMB ) 

209 KONSO( LIST) UNO 
161 LIST=LIST+1 

NL A'S TC L I ST )=NJMC 
NFIRS(LIST)=NUNO 
; : SYMBURIST ) = SYM{ NUMC ) ' 

IXP0N(LIST)=0 

I F t IQUAL( NUMC )- IQ 19 064, 171, 9064 

9064 CONTINUE 
NEST (LI ST) =1 
W6IGT(LIST)=1. 

GO TO 203 

171 NET GT { L 1ST 1 =CVALU 
203 CONTINUE 
SO TO' .123: 

C •: 

C SUBPROGRAM *F* 

C THIS PROGRAM SETS UP SFG INFO. FOR CC 



o o o o 


■ TYPE CONTROL SOURCES 

265 MOMO*NUMB 

IF ( INTEE { NUMB) 1621,621,620 

620 LI ST-L IST+ 1 

NF I RSI LI ST )= NUMB 
NQ8Y=N0BY+ 1 
NLASTC LIST ) = N0bY 
SYM8U(LIST) = SYM( NUMB ) 
muno=noby 

IF{ TYPb I NUMBJ-Z) 9065, 233,9065 

9065 IFITYPBt NUMB )~R)«066, 233,9066 

9066 IF! TYPBI NUMB) -CL )905 7,235,900? 

906 7 IF (TYPB (NUMB )-C) 9068 , 237 , 9068 

9068 CONTINUE 
KUNO-U 

I XPON{ L I ST ) =0 
GO TO 241 
233 IXPONfLlST 1=0 
KUNC=1 
GO TO 241 

235 I XPON( LIST ) = -l 
KUN0=-1 
GO TO 241 

237 1XP0N( LiST)=l 
KUN0=0 

241 I F{ I QUAL ( NUMB )-X Q) 9069, 2 39, 9069 

9069 CONTINUE 
NEST ( LI ST ) =1 
WEIGT( LI ST) = 1 
GO TO 297 

239 I F ( KUNO ) 900, 900, 902 
900 WEIGTf LI ST ) =VAL( NUMB ) 

GO TO 247 

902 WEIGTt L 1ST ) = 1. /YAL (NUMB) 

247 K0NS0(L1ST)=1 

621 LIST=L I ST+1 
NFIRStLIST )=MJNQ 
NLASTILIST )*=NUMC 
IXP0N<LIST)=0 

SYMUUt LIST) =S YM(NUHC) 

IF ( I QUAL ( NUMC ) — IQ )9029, 271,9029 
9029 CONTINUE 

NESKLIST ) = 1 
WEIGT(UST)=1. 

'.'■■'■■'■'-.'GO -TO' 281 > 

271 HEIGT (LI ST) *CVALU 
281 CONTINUE 
: GO TO 123 ' 

SUBPROGRAM *G* 

THIS PROGRAM SETS UP SFG INFO. FOR VV 
■•':• TYPE CONTROL SOURCES' 

360 I F{ MO) 460,460, 364 
364 DO 305 MI* l, MO : 

KI*IVV(MI) 

NUNO=NUML(KI) 
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IF (UNAMUNO)) 361, 361,36 3 
363 UST=LIST+l 

fiF I KS( Li ST) =MUML ( KI ) 

N08Y-M0BY+1 
NLAST(UST)=NOBY 
SYMBU(LIST) =SYM{NUMO) 

IF{ TYPE! NUNO)-Y) 9073 ,333,9070 

9070 IF( TYPE (NUNO)-G 1907 1,333, 9071 

9071 IF (TYPE! NUN0)-C)9G72 ,335,9072 

9072 IF ( TYPE ( NUNO )-CL) 907 3, 337, 90 73 

9073 CONTINUE 
KUN0=0 

IXPON{LIST)=0 
GO TU 341 

333 1XPQNI L I ST ) =0 

KUN0=1 
GO TO 341 

335 IXP0N(LIST)=-1 
KUNO-1 
GO TO 341 
337 I XPOM L 1ST ) = 1 
KUNO-O 

341 IF(IQUAUNUNO) -10)9074,339,9074 

9074 CONTINUE 
NEST(LIST)=1 
WEIGT ( LI ST)=1. 

GO TO 348 

339 I F ( KUNQ )904,904,906 
904 WE I GT l L I ST ) -C4 AL (N UN 0 ) 

GO TO 348 

906 WEIGT(LIST)»1./CVAL{ NUNO ) 

348 CONTINUE 
347 CONTINUE 
NUNO=N08Y 
361 LlST=USm 

NF I RS ( LI ST) “NUNO 
NLAST (LI ST)=KI 
SYMBUC LI ST ) =S YM {K I) 

I XPONI L 1ST )*G 

IF (IQUAL(KI)- 10)9075,371,9075 

9075 CONTINUE 
NEST ( L I ST ) =1 
WEIGTI LIST )=1. 

GO TO 303 

371 WEI GT{ LIST )=VAL( KI ) 

303 CONTINUE 
305 CONTINUE 

SUBPROGRAM *H* 

THIS PROGRAM SETS UP SFG INFO. FOR CV 
TYPE CONTROL SOURCES 
460 IF (LOI 515, 515,464 
464 00 405 MI » 1, U3 
LI=ICV{MI) 

NUNO=NUML( LI ) 

IF ( LI NCI NUNO) ) 463,463,461 
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463 U$T=tISm 

NF I RS ( L 1ST ) sNUML { LI ) 
NQBY=N06Y+1 
NLAST( LI ST)=N3BY 

SYMaU(LIST)=SYM( NJNO) 

IF { TYPbl NUNO) -Z ) 900 8, 43 3, 90 >8 
9008 IF (TYPiit NUNO) -9)9009, 433, 9009 

9009 IF ( TYP6I NUNO) -CL) 9010,435,9010 

9010 IFITYPBI MUNF) -0 9011 ,437,9011 

9011 CONTINUE 
KlJNO-O 

I XPONf L I ST ) =0 
GO TO 441 
433 I XPON( LI ST) =0 
KUNQ=1 
GO TO 441 

735 1 XPONI L I ST ) $-1 
KUNO^l 
GO TO 441 
437 I XPONI L I ST ) = 1 
KUN0=0 

441 I Ft IWUALI NUNO) -I 0)90 76,439,9076 

9076 CONTINUE 
NEST ( LI ST ) =1 
WEI GT I L I ST ) s 1. 

GO TO 448 

439 IF CKUNO) 908,908,910 
908 WEI GT( L I ST ) = VALI NUNO ) 

GO TU 448 

910 WEIGTI L 1ST ) = 1» /VAL IN UNO) 

448 KQNSOI LI ST ) =1 
447 CONTINUE 
NUNO* MOBY 
461 LIST«LIST+l 

NFI RSI LI ST ) =NUNO 
NLASTI LI ST ) =LI 
SYMBUI L 1ST ) =SYH I L I) 

I XPONI LI ST ) =0 

IF{ IOUALIL I )-I Q) 9077, 471, 9077 

9077 CONTINUE 
NEST ( LI ST) =1 
WEIGTI LIST )- I. 

GO TO 403 

471 WE IGTt LI ST) = VALl LI ) 

403 CONTINUE 
405 CONTINUE 

SUBPROGRAM *1* 

GENERATING OUTPUT LIST OF SFG 

515 CONTINUE 

IF I MOOT) 514,512,514 
512 CALL TREP(N0DA,N0DB,NF,NP,NPL) 
N0UT=N0BY+1 
M0PU=NPL-1 
00 510 M0P=1,WQPU 



N1=NP( MOP) 

M2=NP( MOP+ i } 

L 1 ST=L IST+ 1 
NF I RS( LIST > *1 8( Nil »N 2 ) 

NLASTtLI ST)*N3UT 
SYMBU! LI ST ) = GNE 
I XPQN! LIST ) = 0 
K0NS0(UST)=0 
NEST!LI ST ) =Q 

SID WElGr(LIST)=NS(Nl,N2 ) 

511 CONTINUE 
514 NF I R$( 1 ) =NOUT 
NLAST( 1)=NIN 

482 IF { L1STG) 486,486,1200 
1200 WRITE 11,263} 

263 FORMAT (IX,* INITIAL TERMINAL EXPONENT BRANCH BRANCH 1 IF SYM 

1B0L I IF SYMBOL*) 

WRlTc! 1,264) 

264 FORMAT (IX,* NUDE NODE OF S VALUE VALUE SYMBOL IS 

I INVERTED IS JSEOM 

DO 1202 J = 1 , LI ST 

WRITt (1,485) NFIRSU ) , NLAST ( J ) ,IXPQM{ J) ,WEIGT( J ), 

ISYMBU(J) ,KONSO(J),NEST(J) 

485 FORMAT! JX, 12, 7X, 12 ,6X, 12, 4X, E12.5, IX, A3,8X,I2, 14X, 12) 

1202 CONTINUE 
C 

486 CONTINUE 

WRITE{ l, 260) 

260 FORMAT!//) 

RETURN 

END 

// FOR FTREE 

SUBROUTINE FTREE! TYPX ,JBX, L8X , INTRE, NOTRE ) 

C*** ******************************************************************** 
C THE FOLLOWING ARRAYS ARE ASSOCIATED WITH THE NETWORK 
C CHARACTERISTICS NBN, AND NSPT 

B ****************************************** ******* ********************** 

DIMENSION TYPX! 15 ), J8X! 15) ,LBX( 15 ), INTRE! 15) , NOTRE ( 15) 

, DIMENSION NPU5J ,MFi l5, 15), KCOLt 8) ■ 

DIMENSION KONS (8),K0DI(8),SEM8L!8) ,K0DF!8) 

DIMENSION NFI RS ( 30) , NLAST! 30) , IXPON ( 30 ), WEI GT! 30) 

DIMENSION MSORT! 5) *< SORT ! 40) 

DIMENSION SYMBU ( 30) ,K0NS0!30) ,NEST( 30) 

COMMON NBN,NBG, NTO, NSPT, NEXPStNP AC,NRI ,NE0N,NRS 
COMMON NN6,NSPTU, NBTG 

C OMMON NOD , NO 8 , KB AS I , L I STG , L ISTC ,LISTP 
COMMON N I N * NO UT * N QD A , N0OB 

COMMON NFIRS, NLAST, IXPON, WEIGT, SYMBU, KGNSOtNEST, LIST 
COMMON KODI , KONS ,KODF, SEMBL, MSORT, KSORT 
COMMON LI L, K IK ,K00 ,1 Z 

COMMON NCI 

DATA €, VV,CV/*E *,'VV*,*CV*/ 

DATA R,CL,C, Y, Z/*R ' , »L *, *C 
DATA G/«G */ 

DO 40 12=1, NNG 
DO 40 I 3®1 ,NNG 



3 


9078 

17 

18 
19 
.20 

9079 


NF ( 12, I 3 > =0 ■ 

M=0 
K-0 
KC *0. ■ 

00 1 1=1, NOD 

KcoLf n=o 

00 3 I 7=1, NOB 
NOTRE ( I7}=0 
1=0 

1 = 1 + 1 

1 f ( TYPX { I 1-E 16,10, 6 
I F { T YPX( I1-VV18, 10,8 
IF(TYPX(I)~CV)4, 10,4 
K=K+ 1 

1 NT RE C 10 = 1 
J8X1=JBXU) 

KCOL { JBXl ) =KC3L( JBX1 ) + l 
KCOL 1=KCGL { J BX 1} 

NF { JBX 1 , KCOL 1 ) =LLX (I > 

I0X1 = LBXU ) 

KCOL* IBXl )=KCOL{ IBXl 1 + 1 
KCOL2=KCOL( IBX11 
NF ( IBXl »KC0L2 1 = JBXl 
NOTRfcU 1=1 

IF { K-NOD+ 1 1 2,22,22 
IF { N) 4,4,12 
IF C 1 -NOB 1 5,12,12 
M=M + 1 

IF(TYPX( M1-R19078, 16,9078 
IFtTYPX(M) “G) 17, 16,17 
IFCTYPXI Ml-CL 118, 16,18 
I F ( T YPX( H )-C) 19,16, 19 
IFC TYPXCM1- ¥120,16, 20 
IF(TYPX(M)-Z 19079, 16,9079 
CONTINUE 

IF t M-NOB 1 12,22,22 
NINX=J8X(M) 

NOUT X=LBXt Ml 

CALL FREP (N INX, NOUT X, NF » NP ,NPL 1 
IF { NPL 1 21,21,12 
I =M 

G0T010 
; .G0NT1NUE ; ’- ■ 

RETURN 

END 


// FOR FRcP 

SUBROUTINE FREP (N IK , NOUK,NF ,NP,NPU 

C THE FOLLOWING ARRAYS ARE ASSOCIATED :ilTFT .THE- i 
C CHARACTERISTIC NBN 
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DIMENSION JX{ 15) ,NR ( 15) * JMgMi 15) * KMF M{ 15 3 , MF ( I 5 , i 5 i 
DIMENSION KONS ( 8 } , K3 DI( 8 ) , SEMBL < 8 } , KODF (8 ) 

DIMENSION M$ORT( 5 } ,< SORT { 40 ) 

DIMENSION SYMBJI3D) , KONSOI 3a ) » NEST ( 30) 

DIMENSION NFIRSI 3 )) , NLAST { 30) tIXPONi 30 )» WE I GT ( 30) 
COMMON NBN, NBG, NTO* NSPT , NEXPS ,NRAC, NRI ,NEQN,NR 5 
COMMON NNG,NSPTU, NBT 6 
COMMON NOD,NOB,KBASI,LISTG,LlSTC,LISTP 
COMMON NINyNOUTtNODAfNOOB 

COMMON NFIRS, NLAST, IXPOM»WE IGT,SYMBU»KCNSO, NEST, LIST 
COMMON KODI , KONS , K3D f , SEMBL , M SORT , K SQR T 
COMMON L l L * KIK »K; 0 »I Z 
COMMON NCI 
DO Su 15=1, NNG 
JX { 151*0 
N P ( 1 .5 ) = 0 
JMEM{ I 5) =0 
80 KMEM(I5)=0 
NPL=j 
JXC n=NIK 
JX { 2 ) =NI K 
1 = 1 
J=NIK 
NP ( 1 ) =NI K 
20 K=0 
25 K=K+ 1 

IF(NF( J,K)-NOUK) 30,50,30 
30 IF ( NF { J , K ) ) 34,32,34 
32 I FI J-NIK )60, 100,60 
C 

C FLOWER CHECK 

34 MJK=MF { J , K ) 

IF (NJK-JXU H 45,25,45 
C 

C STORE AND REMEMBER VERTEX 

45 1=1+1 

NP { I )=NF ( J , K ) 

JMEM { I J = J 
V: ,TA*I +i ' ; '. 

JX{ I A) = NFt J ,K) 

42 J=NF ( J, K) 

KMEM ( 1 } =K 
GO TO 20 

BACKSTEP 
60 J=JM£M( I ) 

K=KMEMU) 

1 = 1-1 
GO Tu 25 

FINAL RATH VERTEX AND PATH LENGTH 
50 11*1+1 

NPC II i»NOOK 
62 MPL=II 
100 CONTINUE 
RETURN 
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// FOR IRirP 

SUBROUTINE TREPINK ,NOUK,NF , NP , NPL ) 

Q#**##*#**:***###***#,^ *********************** ♦♦#**#^*♦*>11#*# 

C THE FOLLOWING ARRAYS ARE ASSOCIATED WITH THE NETWORK 

C CHARACTERISTIC N3 N 

£******#**$*#$}}(#*# *#*### «$**$#«$#$$$$#* *#******#*#**##*##* ************** 

DIMENSION JX{ 15), N> ( 15} ,JM£M( 15 ) , KME M{ 15} , NF ( 1 5, 15 5 
DIMENSION K0NS(8),K0DIU),SEMBL(8) ,Kf)DF (8) 

DIMENSION MSOR n 5 } ,< SORT { AO} 

DIMENSION S YM BU { 30) »KOMSOf 30) ,NEST( 30 
DIMENSION N FI RSI 3 0) , NLA ST (30) ,IXPON( 30 ) » WE I GT ( 30) 

COMMON NBN,N8G, NTQ, NSPT , NEXPS » NPAC , MRI ,NEDN»NRS 
COMMON NNG.NSPTU,N&TG 

COMMON N0D,N38, KBASI,LISTG»LIST:,LISTP 
COMMON NIN,N3UT,NCDA,N3DB 

COMMON NF IRS, NLAST, IXP3N, WEIGT, SYMttU,KONSO , NEST, LIST 
COMMON K0DI,<0NS,K3DF,SEM8L ,MSORT,KSORT 
COMMON LI L ,K IK ,KOQ ,1 Z 
COMMON NCI 
DO 80 I 3= 1 , NNG 
JXt I 5)=0 
NP{ I 5) =0 
UMEMI i 5 ) = 0 
80 KMEMI 15 ) =0 
NPL=0 . 

JX< 1)=NIK 
JX (2 )=NIK 
1 = 1 
J=N1K 
NP( 1 ) = N1K 
20 K=0 
2 5 K=K+ 1 

IF(NF(J,K)-NOJK) 30,50,30 
30 IF I NF I J, K ) ) 34, 32,34 
32 I F{ J-NIK J 60, 100, 60 

C 

C FLOwER CHECK 

34 NJK=NF{ J,K) 

IF (NJK-JX(I>) 45 , 25 , 45 


C STORE AND REMEMBER VERTEX 

45 1 = 1+1 

NPII )=NF( J,K ) 

JMEMI I ) =U 
> 'LA® I ■+!■ ' 

JXII A)=NFt J,K) 

42 J=NF I J, K ) 

KMEMI I)=K 
GO TO 20 
C 
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C BACKSTEP 

60 J=JM£M( I } 

K=KMfcM( U 
I ^ I - 1 
GO TU 2b 

FINAL PATH VERTEX AND PATH LENGTH 
60 1 1 = 1+1 

NP( III=NOUK 
62 NPL= 1 1 
LOO CONTINUE 
RETURN 
END 



// FOR PART 3 

*IOCS( CARD* TYPEWRITER, PL OF TER 3 
♦non process program 

♦ONE WORD INTEGERS 
INTEGER F 

DIMENSION SMBOL (3 £3) 

DIMENSION N( 1 5, 15 ) 

DIMENSION K0DE(15,15>,1XP0{ IS, 15 3 ,C3NS(I5,153 
DIMENSION S IM8N (40, 4 3 , S I MBD ( 40, 4 3 
DIMENSION POLYUl S,4D } 

DIMENSION a MAGI 10,10), AARGT LU, 133 
DIMENSION I SET (8,40) 

DIMENSION NA( 40 3 , NS ( 40 3 
DIMENSION POL Y{ 5,40 3 , IT0PI403 
DIMENSION KEP <4o, 43 ,KED{40,43 

DIMENSION N PC 00( 125 3 , IXPOT! 1253 .CONST! 1253 , KODET (12 53 
DIMENSION M IX (30 
DIMENSION MSORT ( S3 ,KS0RT(40) 

DIMENSION K0NS(8 3, KDDI (8) ,S£MBL<8) ,KODF (8 3 
DIMENSION NOTCH (4 00 3 

DIMENSION NFIRS (30) ,NLAST( 30 3 , IXPQN ( 30 3, WEI GT( 30) 
DIMENSION SYMBU130) ,K0NS0(30) ,NEST( 30) 

COMMON NBN, N3G,f»T0, NSPT * NEXPS,NPAC* NRI ,NEON, NRS 
COMMON NNG.NSPTU, NBTG 
COMMON NOD, NOB, KB AS I, LI STG, LI STC,L1STP 
COMMON NIN,NOUT,NUDA,NODB 

COMMON NFIRS, NLAST, IXPDN, WE IGT ,SYMBU ,KONSO, NE ST,L I ST 
COMMON KODI,KONS, KD DF» SEMBL ,M SORT ,KSQR T 
COMMON L I L ,K IK »KGO ,1 Z 

COMMON NCI 

EQUIVALENCE ( POLY (1 ,13 ,MIX( 1) 3 
EQUIVALENCE { KOD£T( 1 ) , SMBOL ( 1 3 , ITOP ( I) 3 
EQUIVALENCE { CONS !L, 1 3 , NOTCH! 1 3 , POLYU! 1,133 
EQUIVALENCE ( IXP0(1 , 13 , SIMBD! 1 , 1 3 , 1 SET (1, 1} I 
EQUIVALENCE { KQDE (1,13, AMA6C 1,13) 

EQUIVALENCE (N( I, 1) , AARG( 1,1)3 
EQUIVALENCE (CONST! l),SIWBM! 1,1) ) 

EQUIVALENCE (NPCOD! 1),KEP( 1,1)3 
EQUIVALENCE ( IXPOT! 1 3 ,KED( 1 * 1 3 3 
CALL MI XL! MIX) 

MNB=0 


CALL MAINN! MIX .POLY, MNB, NPCOD, NOP, KLAS, IXPOT , CONST, KODET , I XPO,CQN$ 
1 ,KOD£,N, SMBOL) 

2 - STOP 

1 CALL SUBS CHOP ,KLAS, CONST , IXPOT , KODET , NPCOD, POL Y, NOT CH, I SET) 

■ CALL MAINE! ITOP, MB, NA,SIM8N»S IMBD,KEP, KED) 

CALL $U8E( ITOP,NB,N A,SIHBN,SIMBD f POL Y, KEP , KED , JI B , JD, POL YU 3 
CALL SUBD( ITOP, NB ,N A, SI MBN, SI M6D, POL Y, KEP , KED * JO ,NSET ,NK, F 3 
IF ( F 34, 5,4 

4 CALL SUBC { ITOP, NB ,N A, SI MBN, SIMBD, PULY, POL YU » KEP ,K£D , JIB, JD, NSET ,N 
IK.AMAG, AARG) 

CALL SUBF( AMAG, AARG, N SET, NK) 

5 CALL EXIT 

.. END 



// DUP 



★STURfcCl PART 3 PART 3 

★LOCAL SUnD, (MAINE, <AMD, DECQD) ,SUBS, (MA INN , ARRAY) , ( SU3B , I AND, ARRAL) 

★LOCAL SUbC, M I XL , SUB F 

★CCEND 


// FOR MI XL 

SUBROUTINE MI XL (MIX ) 

c this program orders sfg information 

DIMENSION KONS 18), K3DI (8),S£MtJL(8) ,K0CF{8) 

DI mens I ON NF I RS ( 3 C) , NLA ST (30), I XPQN< 30 ) ,WEI GT( 30) 
DIMENSION MSORT ( 5) ,< SORT {AO ) 

DIMENSION $YMtkJ(30) , KONSOt 3 ) ) ,HE S T( 3C ) 

DIMENSION M IX (30 3 

COMMON NBN, NBG, NTO, NSPT , NE XPS , NPAC , NRI , NEON, NR S 
COMMON NNG, NSPTU, NB TG 

COMMON NOD, NOB, KB AS I , L I STG, L I STC , LISTP 
COMMON Nl N,NOUT ,N CO A, NO 08 

COMMON NF IRS, NLAST, I XPON, WEI GT, SYMBU .KONSO , NEST , L I ST 
COMMON KODI ,<QNS, KO OF, SEMBL , MSORT, KSORT 
COMMON LIL,KIK,KOO,I Z 
COMMON NCI 
DU 8 7 J= 1 , NBG 
87 M IX ( J ) =J 
KONU=LI ST-1 
DU 80 KON= I, KONU 
I U-KON+ 1 
IL=KON 
GO TO 83 

81 MXL=MIX( IL) 

MIX! IU=MIX( IU) 

MIX ( 1 U) =MXL 

IL“ IL-1 
111* I Ur l 

IF { IU 80,80,83 

83 MiU=MIX(IU) 

MIL=MIX( IL) 

IF(NFIRS(MIU)-NF1RS( MIL) ) 81 ,89, 80 

84 MXL=MIX( IL ) 

MixMu*«ix(iui : 

MIX { IU) -MXL 

I L= I L-l 
I 0=10-1 

IF (it) 80,80,82 

82 MIU=MIXMU) 

MIL*MIX( IU 

IF(NFIRS(MIU ) -NF I R SI MI L 3 )80,89, 80 
89 IF {NLAST ( MI U) -NLAST (MID ) 80,80,84 
80 CONTINUE 
1305 CONTINUE 

DO 602 KP1=1,NEXP$ 

602 MSORT «KP 13=0 

DO 950 K02*I,NSPT 
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950 K0D1 { K02 J =0 

DO 603 KP2=l»NTQ 
603 KSORT { KP2 ) =0 

DO 30 1 INK*1»NSPT 
UL=1 

301 K0NS(INK)=0 
K I K= 1 

KOO=u 

RETURN 

END 


// FOR MAX NN 

SUBROUTINE MA INN ( MI X »PDLY , MNB , NPCQD , NOP , KLA S, I XPOT, CONST, KODET, IX 
IPO, CONS , KQDE »N * SM80L ) 

DIMENSION LT( 15), IS ( IS) 

DIMENSION SMBOL (30) 

DIMENSION N ( 1 5, 15 ), CCNSf 15, 15), ODE ( 15, 15 ) , IXPO( 15, 15) 

DIMENSION I FLOW (15) ,NP( 15) ,KQOESI 15) ,KCNC< 15) 

DIMENSION MSORT{ 5) ,< SORT (40 ) 

DIMENSION KONS (8) ,K3DI(8), SEMBL ( 8 ) »KOOF (8) 

DIMENSION NFIRS(3C) , NLASTt 30) , 1XP0N( 30 ) , WEI GT ( 30) 

DIMENSION SYMBU(3Q) , KONSO ( 30 ) ,NEST ( 30) 

DIMENSION POLY (5,40) 

DIMENSION NPCOD ( 1 25 ) , I XPOT ( 12 5) , CONST! 125) , KODET ( 125) 

DIMENSION MIXC30) 

COMMON NBN, NBG, NT 0, NSPT , NEXPS ,NPAC , NRI »NEON,NRS 
COMMON NNG, NSPTU, NBTG 

COMMON NOD ,NDB» KB AS I »LI ST6, LI SIC, LI STP 
COMMON H I N * N3UT «NOD A *N3DB 

COMMON NF I RS, NL AST, I XPON, WE IGT, SYM8U ,KCNSO, NEST, LIST 
COMMON KODI,<ONS,KDDF, SEMBL, M$ORT,K$QRT 
COMMON LIL,KIK,KOO,I Z 
COMMON NCI 

EQUIVALENCE ( IGU1, IFLQWf U ) 

C P RO SI AM MAIN -2 

DATA ONE/* 1*/ 

TAKE SFG BRANCH INFORMATION AS FOUND 
BY SUBROUTINE AND GENERATE 

( 1 ) ROUTING MATRIX INFORMATION 
N ( J ,K ) , AND LTU) 

(2) SFG BRANCH VALUES I XPOtJ,L) »CQN5( J,L) , 

KQDEi JiLJ WHERE J=MF IRSTI I) , L*NLASTCI) , AMD 

1 80*0 
K0«0 
MICH=1 
K=0 
MG=i 
41AS*1 
NCIR=1 
ININNNI H 
I NOUT=NOUT 







Oti 30U INK*l f NNG 
300 1 G { I NK } =0 

C FIND IXPOf J,L) ,C QN $ ( J,L> 

GJ TO 307 
.305 MG*KBASI*MG 
MICH=MICH+i 
33? iB0=I80+ l 

I F( L 1ST- 180 > 19,4,4 
4 L08=MIX( IBQ) 

J=NF IRS( LOBJ 
L=NLAST£L08) 

IXPIH J,L) = IXPON(LOB) 

C0NS( J»L} = WEIGTU03} 

C FIND ROUTING MATRIX 

8 IF (J-JLAS >903 1,10,9031 

9031 IT ( JLAS ) ~K 
K1=K+ 1 

IF( JLAS-NIN)28,27, 28 
27 N ( JLAS, K1 J =- 1 

GO TO 29 

28 N{JLAS,K1)=0 

29 JLAS= JL AS+ 1 
K=0 

GO TO 8 

10 K=K+ 1 

N { J » K ) =L 

C FIND K30E { J , L ) AND SEMBDUKQO) 

SMBOL ( 180 )= SYMBU (LOB) 

MODE=NEST(LOB> 

IF l MODE >335, 31 6, 335 
335 IF<IG(L> >5,960,5 
5 KGDE{J,U = IGCL ) 

GO TO .307 
960 CONTINUE 
KPU=iSO~l 

IF (KPU) 95 3,9 53, 315 

315 DO 952 KP=1,KPU 

IF C SMBQLf I BO )-$M60t ( KP ) >952,9032,952 
9032 LOBX=MIX(KP> 

IF ( KONGO ( LOB J -KONSOf LOBX) >952, 956,952 
956 LX=NLAST(L08X) 

KQOEI J,L>=IG(LX> 

GO TO 307 
952 CONTINUE 

I F ( SMBOL ( I BO )- ONE ) 95 3, 316, 953 

■'.,,953:.".IGC u^MG; - 

KOO-KOQ+ 1 

5EM8L ( KOO > = SMiOL( IBOi 
KOOEC J,L>=IG(L> 

IF { KONSO( LOB i >3,3,2 
2 KONS ( KOU ) =1 
3 GO TO 305 

316 XODE{ J, L ) =0 
60 TO 30? 

LT ( JLAS >=K 
Ktl=K+i 
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UU LAStKllMO 
C C 

c PRO GRAF MAIN — -3 

00 601 KAM*1 tNEXPS 
OJ 60i KIM=1,NT0 
601 POLY ( KAM, KI M) =0 
MP L = 0 
IR»i 
NFIR-1 
KNQ*0 
KODESJ 1! =1 
DO ZOOO JS=2,NNG 
2000 K0DES(US)=2*K0DfeS(JS-i) 

IF!LiSTP)i75»175, 1 116 
1116 WRITE! l*l?0mN,MOUT 

170 FORMAT ( * PATHS FROM NODE *,I2,'T0 NODE ' ,12//) 

WRITE! 1,1905) 

1905 FORMAT! 5X, *N0. MODE LIST' 3 

175 I F { L ISTP ) 1 1 13, 1113,23 
1113 K3=LT(NIN)+1 
N { N I N * K 3 1 =0 
K2=L T { l ) + 1 
N{ i,K2l-“*l 
NIN*i 
NOUT = 1 
KLA S= J 
24 NFI R=0 

IF1USTC) 1209, 1209,1219 
1219 WRITE (1*177) 

177 FORMAT! IX, ‘CIRCUITS* //) 

WRITE! i« 1905) 

KN0=0 

1209 CONTINUE 

C PROGRAM MAIN — 4 

C PATH -FINDING ALGORITHM 

C IN ADD ITiQNt STEP PF 7 CALCULATES THE COMPOSITE 

C CODE , CONSTANT, AND EXPONENT OF THE PATH 

C PF1! PRELIMINARY) 

DO 1112 IZO-i ,NNG 
1112 IFLOW! I Z0)=0 
DO 31 1 1 = 1, NNG 
31 K.ONC ! 1 1 ) = l 
NOP=KLA$ 

KLAS=0 
23 1=2 

J=NIN 
NP!U=NIN 
IFLOw! NI N) =1 
IFLOW! NOUT 1 *-l 
C 

25 K=K0fC!4) 

C 

C PF2! FIND NEXT NODE) 

NP ( I |*=N! U»K ) 

C 

C PF3 (TEST ROUTING MATRIX) 



IF(MJfK) 1100*60, 34 
34 NJK=N( J,K) 

I F ( 1 F LOW { MJK ) ) 50 » 38, 26 
26 KONt ( J ) =KQNC( J ) + 1 

GO 10 26 
3B J = \P{ I } 

I FLOW! J ) = 1 
1 = 1+1 
SO TQ 25 
C 

C PF6 ( OACKSTEP ) 

60 I FLOW! J ) =0 
KONC { J) - 1 
J-NP { 1-2 ) 

KQNC ( J ) =KONC ( J ) + 1 
1 = 1-1 
GO TO 25 
C 

c PFHFINISH PATH) 

50 KONC (J) -KONC (J )+l 
KLAS-KL AS+ 1 
C 

C F I NO CODE FOR NODE PATH 

NPC'OOt I R ) =0 
ISU=1-1 

03 2o02 IS = 1,ISU 
NQDS=NP { IS ) 

2002 NPCOD! IR)=NP:OD(IR)+KODES{NUDS) 

C CALL ARRAY AND WRITE 

I F !NF I R-l >90 33*179,9 033 
903 3 CONTINUE 

IF(LiSTC) 1208, 1208,1206 
1206 CONTINUE 
KRU- I 

179 KNO=KNO+l 

WRITE! 1, 110) KNO, IMP! KR ) , KR=1 , KRU) 

110 FORMAT { 4X, I 3, 6X » 351 3 ) 

1208 CONTINUE 
C 

IF( NFIR-1 >9034, 320, 9034 
9034 CONTINUE 

KOOETC IR)*0 
CONST! IR ) =1. 

IKPOTI IRI *0 ' 

IEND=I 

00 319 KEW-2 , 1 END 
JNODE=NP C KEW-1 ) 

LNODE=NP ! KEW 5 

KODET { I R) -KQDE T! IR )+ KODE (JNO0E » INODE) 
CONST! IR)=C0NST( IR )*CCWS { JNOOE ,LNOD€ ) 
I XPOT! I R )» IXPOTt IR »♦ IXPQf 4NGDE ,LN0BE ) 
319 CONTINUE 

CONEM«CQN$T(IR) 

1 KNEW® I XPOT! IR) 

KONEW=KQDEY( IR) 

CALL ARRAY! I ,CONEW ,1 XNEW,KONEW,POLY> 
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320 CONTINUE 
C 

c 

I R= I R+ l 

IF{ I R-NPAC ) 1 36 l , 1361 , 1360 

1360 WRITE! 1,1362) 

1362 FORMAT ( IX* * M3. OF CIRCUITS EXCEEDS L MIT- INCREASE DIMENSION* / 
1 *CONTANI NG NPAC* J 

1361 CONTINUE 

GO T>j 26 


PROGRAM MAIN — 5 

MODIFY THE SF3 BY REMOVING EVERY BRANCH CONNECTED TO THE NODE THROUGH 
WHICH ALL CIRCUITS HAVE JUST BEEN FOUND 
100 T 3=0 » 

IF C NCI R-l ) 2010 , 102 ,2 010 

102 CONTINUE 
IF(NFIR-l) 104, 2010,104 

103 K4=LT (NI N) +1 
N(NIN,K4) =0 
K3=t?iiW 
N( l,K5)=-i 
NIN = 1 
NOUT= 1 
GU TO 24 

104 IF(NIN-JLAS) 105,200,200 

105 NIN= J+l 
NOUT = J+ 1 
KONC ( J ) = 1 
NY=L T ( J) +1 
NC J, NY 1=0 

DO 109 JC=NIN, JL AS 
LCOL=LT( JO 
I F{ LCOL J 888 , 109 ,888 
888 IF { N ( JC» LCOL )-J) 109, 107, 109 
10? N( JC, LCOL ) =0 
LT « JC»*LT( JCI-1 
109 CONTINUE 

NZ=LT { NI N) + 1 
N(NIN,NZ}=-1 
iiOUT=NIN 
GO TO 23 

2010 IF(NCIR-i)250, 103, 250 
200 GO TO 2222 
250 MNB=i 
2222 RETURN 
END 


// FOR SU88 

SUBROUTINE 5 UBBCM 0 P ,KLA$r CONST* IX:POT»KOOET*^COO*POOY,«OTCH,ISfTI 
DIMENSION SYM 8 Ut 30 i ,KONSOt 30 > rNESTC 30 ? ■ . ' ; 
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DIMENSION MSORT! 5) ,<S0RT!4q) 

DIMENSION KONS ( 8 ) , K3D I { 8 3 » SEMBL I B ) »KQDF (8) 

DIMENSION NFI RS ( 30) , NLA ST { 30) , IXPON! 30 ) , WE I GT ! 30) 

DIMENSION I SET! 8, 40) 

DIMENSION NPC0DU25 ) » IX POT 1125) * CONST! 125 ) , KODeT ( 12 5) 
DIMENSION NOTCH (400) 

DIMENSION NOCTOI 125) ,MAPO( 123) 

DIMENSION NUP ( 125) ,JAC(125> 

DIMENSION POLY (5 *40} 

COMMON N8M, NB6,NT0* NSPT , NEXPS ,NP AC, NRI ,NEON,NR'S 
COMMON NMG, MSPTU, NBTG 
COMMON N0D,N08,KBASI,LISTG,LISTC»LISTP 
COMMON NIN,NOUT ,N(jDA,NODci 

COMMON NFIRS, NLAST, I XPON , WE 1ST, SYMBU ,KCN$0 , NE ST , LI ST 
COMMON KODI ,KON$ , K3 DF , ScMBL ,MSQRT , KSQRT 
COMMON LIL ,KIK. ,K00 ,1 l 
COMMON NCI 

C PROGRAM MAIN— 6 

C FIND SECOND ORDER LOOPS 

NOL=KLAS 
KHOL=0 

DO 257 K0W=1,NPAC 
257 NQCr 0 (K 0 W )=0 
LOW l=NQP+ 1 

N0C = 0 

N0L1=N0L~1 

DO 203 LIRi=L3Wi»N0L 1 

LGW2=LI Rl+1 

DO 202 LIR2=L0W2»NQL 

CALL I ANDtNPCGDIL IR 1 },NPCOD!L IR2) »NAN» 0) 

IF ( NAN) 202 ,201 ,2 02 
201 CONTINUE 

ICONS* CONST I L IRi ) *C0NST(LIR2) 

KXPQ2= I XPOT ( LI R1 )+ IX POT ( LI R2 ) 

KSYM2=KDD£T ( LI R1 )•*• KODET! L IR2 ) 

CALL ARRAU 2, TCON S, KXP02, KSYM2 »P3LY ) 

KHOL-KHQL+ 1 
N0C*N0C+1 

IFtNQC-NEQNi 1396,139 6,13 95 

1395 WRITE! 1,1397) 

1397 FORMAT! IX, ‘INCREASE NEON-THE DIMENSION OF THE ARRAY NOTCH*) 

1396 CONTINUE 
NOTCH! NOC ) =L I R2 

202 CONTINUE 

203 NOCTOtLI R1)*N3C 
NOCTU!NOL)=NOC 

■VPRQSRAfl MAIN : 

FIND LOOPS OF ORDER GREATER THAN 2 
GENERATE THE FIRST ROW OF ISET 
NIPL = N0P+1 > 

■ K.APMA*! . > 

' INK0=1 

DO 1170 ISONIPL,NOL 
JNK1=N0CT0( ISC) 

IFUSC-miTl, 1171,1 172 
1172 INK2=N0CT0! 1SC-D + 1 



GO TO 11/3 
1171 10K2-1 

1 173 I F { INK1-1NK2-INKU) 1170, 11 70, 1175 
1173 INKU=INK1-INK2 
1170 CONTINUE 

IF( I NKO-NCI) 1391,1 391,1390 

1390 WR1TH6* 13 92 1INK0 

1392 FORMAT { IX, * INCREASE NCI THE NO 3F COPUMNS I N4D MENSION OF I SET* } 

1391 CONTINUE 

DU 490 MIPs'NlPLtNOl 
INKU=NOCTO(N IP } 

If (NIP-15210, 210,211 
211 I NKL=NQCTO( NIP-15+1 
GO To 212 

210 I iiKL= 1 

212 CONTINUE 

IFC 1NKU-INKL5490, 490,410 
410 JIP=0 

DO 480 INK=INKL» INKJ 
JIRs JIP+1 

480 I SET { 1,JIP} = NOTCH! INK) 

MAPG ( NI P) = INRU-I NKL+ 1 

C INITIATE PROCESS FOR FINDING HIGHER ORDER LOOPS 

00 430 KAT=1,NPAC 
JAC( KAT 5 =0 
430 NUP(KAT)=0 

JAC { 15* MAPO( Nl P 5 
KAP = 2 

440 KAP=KAP-1 

I F { K AP ) 490,490 ,429 
425 KAP=KAP+1 

I F ( K AP-NRI 5 1350, 1350,1351 

1351 WRIT £ { i , 13 52 5 

1352 FORMATUX, 'INCREASE NRI- THE NO. OF ROWS IN DIMENSION OF I SET* } 
1350 CONTINUE 

NUP(KAP}*0 
429 KAP 1*KAP+1 
JAC( KAP 1 ) =0 
NUP( KAP) =NUP (RAP ) + l 
C LABEL LOOP OF FIRST CIRCUIT 

NAP=NUP( KAP) 

IFIKAPMA-KAP 51347, 1348,1348 

1347 KAPMA^KAP 

1348 CONTINUE 

1 SAT=IS£T (KAP, NAP 5 
C TEST LOOP OF REMAINING CRTS 

HAPUsjAC(KAP) 

MAPL-NUPI RAP 5+ 1 
00 435 MA P I * MA PL , M AP U 
1 SOT-I S6T( RAP, MAPI ) 

CALL I AND! NPCODf ISAT ) »NPCOD{ I SOT} ,RAN,0) 

IFCRAN5435, 455,435 
455 CONTINUE: 

r UST rc 

TCGN6=CGM$T (N IP 5 
KXPGG=IXP0T(MIP5 
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K$YMG=KODET!MlP} 

00 477 LP0*1,KAP 
HI C*NUP { LPO) 

I TUCH=I SET! LPQ, I T I C) 

TC0NG=TC0NG*CDNST( ITUCH) 

KXPOb=KXPCG+ IX POT ( ITUCH} 

477 KSYMG=KSYMG+K3DET( ITUCH) 

TCONG 3 T CON6*C ON ST ( I SCI} 

KXPOG*KXPOG+ IXPQT! ISOT) 

KSYMG*KSYMG+K3DET { ISOT} 

K APP=K AP+2 

CALL ARRAU KAPP ,TC3NG, KXPQG ,K 5YMG , PULY } 
KHOL-KHOL+I 
C SET COUNTERS 

423 KAP1-KAP+1 

JAC ( K.API ) 3 JAC! KAP l )+• l 
JACK=JAC { KAP 1) 

I SET I K API » JACK }“ I SET { KAP* MAPI} 

435 CONTINUE 

J ACK= J AC ( KAP I ) 

IF{ JACK-2) 431 ,425,425 
431 IF! JAC(KAP)-NJP(KAP)-I) 440,440,429 
490 CONTINUE 

CALL ARRAU 2, 1., 0,0, POLY) 

25 J RETURN 

END 


It FOR MAINE 

SUBROUTINE MAINE! IT0P,NB,NA,SIM8N,SI MBO,KEP,KED) 
DIMENSION I TOP! 40) 

DIMENSION SIMBN140, 4J,SIMBD(4G,41 
DIMENSION KEP (40,4} ,KED{40,4} 

DIMENSION NA( 401 , NB ! 40) 

DIMENSION MSORT! 5) ,< SORT C 40} 

DIMENSION KONS (8 ) , K3 DI ( 8 ) * SEMBL ! 8 ) ,KO0F (8) 

DIMENSION SYMBU ! 30) ,K0NS0(30) , NEST! 30) 

DIMENSION NFIRS (30) ,NLAST { 30 J , IXPON ( 30 ), WEI GT ( 301 
COMMON NBN, NBG, NT 0, NSPT , NEXPS »NPAC» N R1 »NEON ,NRS 
COMMON NNGfNSPTU, NBTG 

COMMON NOD , NOB, KB AS I,LISTG,LI STC, LI STP 
COM PON NIN, NOUT , H OD A , NO 08 

COMMON NFIRS, NL AST* I XPON, WE IGT , SYMBU .KONSO, NEST, L I ST 
COMMON KODl *KONS,KODF,SEMBL,MSORT ,KSORT 
COMMON L I L, K IK ,K00 ,1 1 
COMMON NCI 
DATA SB/* 1 */ 

PROGRAM MAIN 8 
DECODE COMPOSITE SYMBOL CODE 
AND ISOLATE SYMBOLS FROM 
INVERSE SYMBOLS 
00 693 JI»1, NTQ 
DO 693 J2-1, NS PTU 
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KSPU1, J2)=l 
KtD{ Jit J2)=l 
SIMBNI 31, J2)=SB 
SI MBO( 3 1 ,32) =S8 
DO 951 34*1, NT 0 
NA ( 34 } *0 
951 N8! 34 ) =0 

C DECODE KSORT(JZ) AND RECORD TcRMS 

C CONTAINING FEEDBACK SYMBOL * FB * 

3ZU=L I L~ 1 

DO 646 JZ=1 » 3ZU 

KQDY=K$0RT(3Z) 

I TOP ( 3Z ) =0 
IF(KOOY) 715,646, 715 
715 CALL PEC OD ! K 03 Y, 3Z ,1 TOP ) 

C ISOLATE NUM. SYMBOLS AND INVERSE SYMBOLS 

C OF KSORT(JZ) 

63 7 NAK = 0 
NAT 5*3 

IF{ IZ 1646, 646, 647 
647 CONTINUE 

00 645 NZ= 1 , I Z 
KGZY=KQDI { NZ ) 

I ARG=KOOF ( NZ) 

IF{ 1 ARG-NRS) 1340, 1340,1341 

1341 WRITE! 1,1342) 

1342 FORMAT! IX, * INCREASE THE DIMENSION OF ST ARM 
1340 CONTINUE 

1 F { KONS ! KGZ Y ) ) 65 7, 65 7,659 
657 NAK=NAK+1 

IF { NAK-MSPTU-l ) l 376, 1375,1375 
1375 WRI TE { 1 , 1 377 1 

C THE CONSTANT COEFFICIENTS IN THE TRANSFER FUNCTION 

C INTO ARRAYS FOR THE NUMERATOR AND DENOMINATOR 

1377 FORMAT! IX, 'NSPT EXCEEDS LIMIT- INCREASE DIMENSIONS 
1 NSPT* ) 

13? 6 '."CONTINUE '' 

SIMBN! JZ,NAK) = SEMBL( KOZY ) 

KEP ! 3Z , NAK )=I ARG 
NA(GZ)=NA!UZ)+1 
GO TO 645 
659 NAT=NAT+1 

■■I.FiNAT-NSPTU-l) : l:38i, 1380, 1380 
1 38 0 "HR I T E I : !• f 1. 3 0 2 ) " : ■ ' 

1382 FORMAT! IX, • NSPT EXCEEDS LIMIT-INCREASE DIMENSIONS, 
1 'CONTAINING NSPT') 

1 361 CONTINUE ■ 

SIM3DC JZ.NAT) =SEM3L ! KOZY) 

KED ( 3Z » NAT ) =1 ARG 
Nb!3Z) = NB! JZ)4-1 

645 CONTINUE 

646 CONTINUt 

' RETURN ' 

END 


ARE SEPARATED 
CONTAINING 
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// FOR SUBE 

SUBROUTINE SUBE ( I TO P,NB ,NA , SI MBN, SI MBD »POLY ,KE P, KEO, 41 8* JD, POLY'J) 
DIMENSION P ON ( 4 ) , PO D ( 4 ) 

DIMENSION TEMPI SI 
. DIMENSION KEP (4t>, 4} ,KED(4Q,4) 

DIMENSION POL Y{ 5 , 43 ) * I T OP ( 40 ) 

DIMENSION NA{ 40) , NB (40) 

DIMENSION SIM BN 5 43, 4 ) , S I MBD { 40, 4 ) 

DIMENSION NFIRSI30) , NL A ST < 30) , I XPON C 30 >, WE I GT ( 30) 

DIMENSION K0NS(8)tK3DI(a),SEMBL(8) , K.4DF (8) 

DIMENSION MSCRT(B) ,< SORT (40) 

DIMENSION SYMBU ( 3 0) , KONSO ( 30 ) , NEST { 30 ) 

DIMENSION PQLYU( 5,43) 

COMMON NBN, N8G,NTQ, NSPT , NEXPS ,NP4C,NRI ,NE0N,NR5 
COMMON NNG, NSPTU, NBTG 

COMMON NOD, NOB, KB AS I ,L I STG » II STC , L I STP 
COMMON NIN.NOUT , NOD A, NO OB 

COMMON NF IRS, NL AST, I XPON, W5 IGT, SYMBU ,KCNSO, NEST, LIST 
COMMON KODI ,KONS, KODF, SEMBL ,MSORT ,RSCRT 
COMMON LIL,KIK,KOO,I Z 
COMMON NCI 
PROGRAM MAIN 9 

SEPARATE POLY INTO ARRAYS FOR THE NUMERATOR AND DENOMINATOR 
OF THE TRANSFER FUNCTION 
DATA TEMPI I), TEMP (2 ) , TEMP( 33 / 1 *, »**2*,***3*/ 

DATA TEMP (4) ,TEMP (5 ) / * **4» , * **5* / 

DATA DASH/* /*/ 

931 FORMAT l 1X.50UH*)) 

930 FORMAT ( // ) 

DO 691 41=1, NEXPS 
DO 691 42=1, NTO 
691 POLYUf Jl,J2l=0 
NANU=LIL-1 
KIKU=KIK-1 
DO 755 JA=1,KIKU 
41 8=0 
4D=0 

DO 755 4C=1 , NANU 
IFCIT0P(4C))753, 75 3, 751 
751 4IB=JIB+1 

P0LYU(4A,4IB)=P0LY (4A,4C) 

GO TO 755 
753 40=40+1 

POLY { JA» 4D ) = POLY { 4A, JO 
755 CONTINUE 

PROGRAM MAIN 10 
MAKE POWERS OF S IN OUTPUT 
TRANSFER FUNCTION POSITIVE 
MAXI M=0 
KARU=KIK-1 
DO 522 KAR= 1 , X ARU 
IF( MSORT(KAR) ) 521, 52 2,522 
52 1 IF { MAXI M+MSORT CKAR 11523, 522, 522 
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523 MAXI M*-MSORT (KAR) 

522 CONTINUE: 

DO *>24 KIT=1 , KARU 
524 MSORT(KIT)=MAXIM+MS3 RT ( K. IT I 

main program II 

PRINT OUT NUMERATOR OF THE TRANSFER FUNCTION 
LUK = u 
IKU=LIL-i 
WRITE! 1,931) 

WRITE ( 1,930) 

WRITE. ( 1 , 920) 

920 FORMAT ( 25X, * NUMERAT3 R POLYNOMIAL*///) 

WRITE! 1,9215 

92 1 FORMAT (IX, * COLUMN * ,1 2X , * SYMBOL FOR GIVEN COLUMN 1 > 

DO 9 05 IK= 1 » IKU 
IF ( I TOP ( IK) ) 905, 905, 9C1 
901 1 LU=NA (IK) 

IF C ILUJ710, 710*711 

710 1 LU= 1 

711 JLU = NBUK) 

1F(JLU)712, 712,713 

712 JLU= 1 

713 CONTINUE 
LUK=LUK+ 1 

DO 10 I L= 1 » ILU 
I=KEP{ IK, II > 

PON (ID =TEMP( I) 

10 CONTINUE 

00 20 UL=1» JLU 
I-KED! I K, UL) 

P00( JL)*TEMP{ I) 

20 CONTINUE 

WRITE! 1 , 903 ) LUK, ( S 1MBM I K, I L) , PONC IL ) , 

1 IL = l , ILU) ,DASH , ( SI M30(IK, JL) ,POD( JL) , JL=1, JLU) 

903 FORMAT (IX, 1 5 ,2 OX , 3 OA 3 ) 

905 CONTINUE 

-MRITEt 1,9301 
> 'MRITM1 ,1821 J 
1821 FORMAT! IX, ‘POWER*) 

WRI TEC 1,922 ) 

922 FORMAT ( IX, * OF S' ,I7X , ‘CONSTANT CDEFS. IN THE POLYNOMIAL* ) 
LML«l 

■:VLMLN4- ; - : 

IF! JIB-LMUJ820, 818,818 


820 

818 

806 


810 

808 


LMU= JIB 

WRITE! 1,806) (10, LO=LML, LMU) 

FORMAT! 2X, 7! 8X , ‘COLUMN* , 1 21) 

KR0«U*KIK-1 

DO 808 KRGW*1,KR0WU 

WRITE! 1, 810) MSORT( KROW), (POL YU(KR0W,LM1 ,LM*LHU 

FORMAT! 15, * ^ * »? {£12.5, * *1 1 

CONTINUE 

IF! J18-LMU1 814,814 ,8 12 . 


tlMO) 

MS MM M 


812 tML=i«L-F4 


LMU=LMU+4 


IF! JI8-LMU ) 81 6, 818, 818 



u u u 


816 L«U=J1B 

gu ru 8 ia 

814 CONTINUE 
RETURN 
END 


// FOR SUED 

SUBROUTINE SJ0D ( l TOP ,NB, NA, 51 MBN , SIMBD ,POL Y ,KEP , KED » JD, NSET ,NK , F ) 
PROGRAM MAIN 12 
PRINT OUT DENOMINATOR OF 
THE TRANSFER FUNCTION 
INTEGER F 
DIMENSION TEMPI SI 
01 MANSION K£P { 4U, 4) ,KED(40»4) 

DIMENSION P0N(4),P0D(4) 

DIMENSION POL Y! 5, 43 ) » I TOP ! 4u) 

DIMENSION SIM8NI4U, 4),SLMBD(40,4) 

DIMENSION NAI 40) ,NB (40) 

DIMENSION NFI RS I 30) » NLAST ( 30) » IXPONI 30 ) , WE I GT { 30 ) 

DIMENSION KONS ( 8 ) , KODI (8 ) » SEMBL ! 8) ,KQDF 18) 

DIMENSION MSORTI 5) »< SORT 1 40) 

DIMENSION SYM8U130) ,KONSQ! JO) ,NEST(3C) 

COMMON NBN,NBG» NTO# NSPT ,NEXPS,NPAC,NRI *NEON,NRS 
COMMON NNG»NSPTU» NBTG 
COMMON MOO, NOB, KB AS I » LI STG, LI $TC,LISTP 
COMMON NIN,N3UT *NODA*NODB 

COMMON NFIRStNLASTf IXPON, WE IGT,SYMBU ,KQNSO, NfiST.L I ST 
COMMON KODI, <ONS, K3DF, SEMBL, MSQRT,KSQRT 
COMMON LIL,KIK,K00,IZ 

COMMON NCI 

DATA TEMP m,T£MP (2 ), TEMPO J/' * , * **2* * »**3 * / 

DATA TEMP (4 ), TEMP (5 ) /***4* , , **5 t / 

DATA DASH/*' .:/ */■ . ■ 

930 FORMAT! //I 

931 FORMAT! IX* 501 1H* } ) 

LUK»0 
IKU=L1L-1 
WRITE! 1,9311 
WRITE! 1, 930) 

WRITE! 1,923) 

923 FORMAT (25X, ‘DENOMI NATOR POLYNOMIAL*///) 

WRITE ( 1,9243 

924 FORMAT! IX, 'COLUMN 1 ,12X,» SYMBOL FOR GIVEN COLUMN* 1 
DO 705 IK=1» IKU 
I F( 1 TOP! IK 1 ) 70 1, 701* 705 

701 ILUaNAUK) 

LUK=LUK*1 

I f { I LU 1 .9 1 5 » 9 15 * 91 6 
915 1LU*1 

916 JLU=NB! IX) 

IF ( JLU3917, 91 7,918 

917 JLU=1 



■na continue 

00 10 11 = 1 » ILU 
i=KtP{ IK, ID 
PONCIU=TEMP« H 
10 CONTINUE 

00 20 JL=lt JLU 

1 = KED( IK, JU 

pOD{ju=TeHp{ n 

20 CONTINUE 

WHITE! 1,70 3) LUK, (SIM BN (IK, I L), PON! IL) , 

HL=1»ILU)*DASH,{ 61 MB U{ IK, JU ,POD{ JL) * JL = 1 , JLU) 

703 FORMAT (1X,I5,2QX,3QA3) 

705 CONTINUE 

WRITE! 1,930) 

WRITE! 1, 1822) 

1822 FORMAT C 1 X, ’POWER* ) 

WRITE' (1,925) 

925 FORMAT! IX, « OF S * , 1 7X ,* CONSTANT COEFS.IN THE POLYNOMIAL*) 
LML=1 
LMU=4 

IF! J0-LMU)520, 518, 518 
520 LMU=JD 

518 WRITE ! 1 , 506) ( LO,LO= LML, LMU ) 

506 FORMAT ( 2X, 7( 8X , * COLUMN*, 12) > 

KROWU=K I K- 1 

00 508 KROW= 1, KROWU 

WRI TE! 1,513) MSDRT! KROW) , ( POL Y(KROW » LM ) , LM=LML » LMU) 

510 FORMAT! 15,* *,7(612.5,* • ) 3 

508 CONTINUE 

IF! JD-LMU)514, 514, 512 
512 LML=LML+4 
LMU=LMU*4 

IF{ JO-LMU) 51 6, 518, 51 8 
516 LMU=JD 

GO TO 518 
514 CONTINUE 

WRI Tfe ( 1 » 93 1 ) 

WRITE! 1,930) 

READ! 5, 3) F 
3 FORMAT! 1 1 } 

, . IFfF15»6»§ . 

5 ■ CONTINUE ' 

READ! 5 ,2251 )M$ET »NK 
2251 FORMAT (2110) 

WRITE! 1 . 4444 )MSF T 

4444 FORMAT ! IX, * NUMBER OF SETS =’,I2) 

WRITE t : Tt4445TN^‘ T 

4445 FORMAT! IX, 'NUMBER OF FREQUENCYS =*,I2) 

WRITE! 1,930) 

6 CONTINUE 
fUET URN 

' END : 



u u 


// for suae 

SUBROUTINE SJ8C ( I TOP ,N3,.NA» 51 MUM , SI MBD »PJLY , POL YU * <EP » KED, JI B » JD 
INSET ,NK* AMAG »AARG) 

THIS SUBROUTI HE FINDS THE AMPLITUDE ANC PHASE 
CF NETWORK PUNCH ON 
DIMENSION POL YU! t> * 43 1 
DIMENSION N A { 40 ) * NB ( 4 0 ) 

DIMENSION SIMBW(4C, 4),SXMB0{4O,4) 

DIMENSION POL YC 5. 40 I ,IT r ?P(403 
DIMtNSIUN K E P 1 4 » 4) ,KE0(4G,4) 

DIMENSION AMAG! 10,lU),AARG( 10*10) 

DIMENSION VALX(S) 

DIMENSION DN( 40) 

DIMENSION PN( 40 ) 

DIMENSION NFIRS { 30) ,NLAST( 30) » I XPQN ( 30 ) , WE I GT { 30 ) 

DIMENSION KONS { 8 } * K3 D I ( 8 ) * S£ MBL ( 8 ) ,K3DF (8) 

DIMENSION MSORT(S) ,KSCRT(40) 

DIMENSION SYM8UI30) *K0NSQ(30> ,flEST( 30) 

COMMON NBN» NBG* NT C* NSPT,NEXPS ,NPAC*NRI ,N£ON,NRS 
COMMON NNG, NSPTU, N3TC- 

COMMON NOD, NOB, KB AS I, LI STG, LISTS, LI STP 
COMMON NIN,N3UT,N0DA,N0DB 

COMMON NFIRS, NL AST* IXPON* WEIGT *SYMBU»KONSO#NEST »LIST 
COMMON KODI »KGNS » KO OF » SEMBL *MSQRT »KSORT 
COMMON LI L t K IK *KGO *1 Z 

COMMON MT T 

EQUIVALENCE (PNU)fDN(l)) 

3MAu(W)=SQRT! !TRPN**2+W**2*TGPN**2 )/ !TRDN**2+W**2*TGDN**2) ) 

ARG( W) =ATAN( W*( TR DN*TGPN-TGDN*TRPN) / !TRPN*TRDN*W**2*TGPM*TGDN) ) 
SI = 4« 7 1 36 
IKU=LI L~l 
PI 2*6. 28318 
WRITE! 1*931) 

DO 2254 K*I *NSE T 
WRITE! 1*930) 

930 FORMAT!/) 

931 FORMAT (IX, 50! 1H#) ) 

WRITE! 1*5561 ) K 

5561 FORMAT! iX**SET NUMBER - * , 131 
WRITE! 1*930 ) 

IF ( K-2 ) 50, 5 1, 50 
51 PAUSE 

50 CONTINUE 

L- 1 
LL= 1 
M*0 

7 M=M+1 

S6M8UM)=SIMBNCL, LL ) 

IF! K- 1) 52, 53, 52 
53 CONTINUE 

WRITE! l,n«,SEM8i Ml 
1 FORMAT UOX* ‘SYMBOL !»,I2,*) «*,A3) 

PAUSE 

52 CONTINUE 

READ! 5* 2) VALXi Ml 



2 


FORMAT {£ 12. 5) 

WRI Tfc ( 1 , 54 ) M» /AL X (M ) 

54 FORMAT { 10X, 'SYMBOL {*,12, •} = ',£ 12.5) 
SlM3N(L»LL)=VALX(M) 

8 I F { LL-NSP TU ) 3 , 4 , 4 

3 LL=U+1 

U DO 5KM= l , M 

IF C SIMSNfL, LL >~SEM&L(KM ) } 5, 6, 5 
5 CONTINUE 
GO TO 7 

6 SIMh.{L,LI)=VALX(KM) 

GO TO 8 

4 IF ( L-IKJ J 9, LO , ID 

9 L = L + 1 
LL = 1 

GO TO 11 

10 CONTINUE 

L = 1 
LL=1 

GO TO 21 
17 M=M*i 

SEMbLf M)=SIMBD( L,LL ) 

IF! K- 1)55,56, 55 
56 CONTINUE 

WRI TLI 1 * 1 ) M,$EH[>t (M ) 

PAUSE 

55 CONTINUE 

READC5,2) VALXIM) 

WRITE! 1 ,54) M, VALXIH) 

SIMBD(L,LU=VALX( M) 

18 IF { LL-N5PTU ) 1 3, 14,14 

13 LL*LL+t 

21 . DO 15 KM= i»M 

IF { SI M8D(L, LI )-5E MBUKM )) 15,16,15 
15 CONTINUE 

GO TO 17 

16 SI MBOt L, LL ) *VALX(KM> 

GO T0:"i 8 : 

14 IF(L-IKU) 19,20, 20 

19 . L*L+1 

LL= 1 

GO ID 21 

20 CONTINUE 
TRPN=0. 

TGPN=0. 

TG0N=0* 

00 2115 I = 1 , NT 0 

pn( n=o. 

2115 CONTINUE 
LUK=0 : 

00 905 IK-1VIKU 
IF 1 1 TOPI IK) 1905,905, 901 
901 IUNNAUK) 

IFMLU) 710,T10,?il 
710 I LU= 1 



711 JLU=NB(IK) 

I F C JLU) 712,712,713 

712 JLU=i 

713 CONTINUE 
LUK=LUK+i 

PNP= I# 

PNO=i. 

00 2117 I L= 1* ILU 

PNP = { SIMBN( IK, ID )* *KEP ( IK,IL )*PNP 

2117 CONTINUE 

DJ 2227 JL = 1 ,JLU 

PND* ( SIMBD(IK,JL) ** KEOt IK, JL) )*PNO 
2227 CONTINUE 

P <( LUK) = PNP/PNO 
90!) CONTINUE 

KROHU*KIK-i 

DO 808 KRQW= 1, KRuWU 

00 2228 LM=l, JIH 

1 Ft MSORT t KROlrf U 21 18 ,2119,2118 
2119 TRPN*TRPN+P0LYU(KR3W»LH)*PN(LM) 

GO TO 2225 

2118 KROW«*MSORT(KROW) /2 

IF ( KRQNW*2-MSQRT( KRUW )) 2220 » 2221 , 222 C 
2221 TRPN=TRPN+POLYU( KRGW,LM)*PNt LM) * t- 1 )**KROWW 
GO TO 2225 

2220 TGPN=TGPN+POLYU( KRtW , LM) *PN(LM ) **( -1 ) **KROWW 
2225 CONTINUE 

808 CONTINUE . 

DO 2357 1=1, NTO 
ON? I)*0. 

2357 CONTINUE 
LUK=0 
IKU=L I L- 1 
DO 708 IK*1,IKU 
IF? ITOPt IK J J 70 i, 701, 705 
-■ 701 IIU*NAMKT 

IF? ILU)915»915»916 
915 ILU*1 

916 JLlNNSt IK) 

IFt JLUI917, 917,91 8 

917 JLU= 1 

918 CONTINUE 

LUK=LUK+i 
' .PNP=T * . 

PND=1. 

DO 2167 IL = 1* ILU 

PNP=( SIMBNt IK tlD )**KEP( IK, IL)*PNP 
2167 CONTINUE 

DO 2238 JL= 1 , JLU 

PND* ( S I HBOt IK , JL) **K£D( IK, JL) )*PND 
2238 CONTINUE 

ON t LUK ) =PNP /P NO 

705 CONTINUE 

KROWU=KIK~l 

DO 508 K.ROW-1, KRONE) 

DO 2267 LM=l»JD 



I F ( HSORT ! RROH) 52228, 2229,2228 
222 9 TRDN-TRDN+POLYf KROrf,LH)*DN(LMI 
30 Tu 2267 

2228 KRUhW=MSORT KRQW) fZ 

IF I KR0WW*2~M$0RI! KR ON I ) 2350,2271, 2350 
2271 TRDN=TRDN+POLY(KRW ,LM)*DMlM)*(-n**KRawW 

GO TO 2267 

2350 TGDN=TGDN+PCL Y{ KR0W»LH)#DN{LM)*(-1)#*K ROWW 
2267 CONTINUE 
508 CONTINUE 

WRITE (1, 930 J 
WRITE! 1,5555) TRPM 

5555 F0RMATUX,«R=AL VALUE OF NUMERATOR =*,£12.5) 

WRI TEC 1,5556) TGPN 

5556 FORMAT! IX, 'IMAGINARY VALUE OF NUMERATOR =• ,£12.5) 

WRI T EC 1 , 5557) TROM 

5557 FORMAT! IX, * REAL VALUE OF DENOMINATOR =*,£12.5) 

WRITE! 1,5558) ICON 

5558 FORMAT! IX, * IMAGINARY VALUE OF DENOMINATOR =»,£12.5) 

WRITE! 1,930) 

WRI TE { 1 , 5559 ) 

5559 FORMAT! 10X, 'FREQUENCY AMPLITUDE PHASE ANGLE * ) 

l=nk+i 

DO 2356 KK= 1, L 
KKl =KK- l 

IF (KK- 1)2351, 23 52, 2 351 

2352 W=Pi 2 
F= 1 . 

GO TO 2353 

2351 W=PI2*IG.**KK1 
F= 10. 1 

2353 CONTINUE • • : ■ 

AMAGfK t KKl*BMAG.iM)' 

AARG{K,KK)*ARG! W) 

WRITE! 1,5560) F, AMAG ! K,KK ) ,AARG! K» KK > 

5560 FORMAT (9X»£12.5»8X, E 12. 5, 8X ,£ 12. 5 ) 

2356 CONTINUE 

WRITE! 1,930) 

WRITE! 1,931) 

2254 CONTINUE 
RETURN 
■END 


//FOR SUSP 

SUBROUT I NE SUBF ! AMAG, AARG t NS£T ,NK ) 

C THIS SUBROUTINE PLOTS THE FREQUENCY RESPONSE 

DIMENSION AMAG! 10 »i 0 ) , AARGT 10, 10) 

DIMENSION XX! 10,10) 

SI = 4. 7136 PP-P 

C BRING PLOTTER PEN TO EXETREME RIGHT- POSITION 
t=NK*t 



40 


CALL SCALF { 1, 0, 1 « 0* 0* ,-9. 35 ) 

CALL FPLUTl 1,0. ,0.) 

CALL FGR I 0( 3, 0. , 0., l.,MK) 

CALL FGRID! C,Q. »0.» .25,24) 

NN'*NK+1 

00 2260 1=1 ,NN 
AX = -* 3 
AY=I~t 

CALL FCHAR! AX,- AY ,3*1*3. I, 51) 
WRIT£{ 7,41 
4 FORMAT! *10') 

AY 1 = 1-1 + . 2 
AX 1 . 2 
K = l-i 

CALL FCHAR ( A X 1 AY 1*0.07,0.0 7,51 ) 
WRITE! 7,6)K 
6 FORMAT! 12) 

2260 CONTINUE 

00 2270 1=1, NK 
A I* I - I 

DO 2270 J=2 » 9 
A J = J 

U = AI+ALOG(AJ J/2.303 
CALL FGRI0(3»G. »-U, 0.»3) 

2270 CONTINUE 
ND*NK/2 
AY=NO 
AY 1 =AY- 1 • 

CALL FCHAR! 6, -AYl , .25, . 175, SI) 
WRITE! 7,7) 

7 FORMAT! IX , * FREOUc NC Y * ) 

CALL FCHAR! 2. 5,0.8, .25, .175,0.) 
IF{MM-U34, 35,34 
35 WRITE! 7,8) 

8 FORMAT! IX, * AMPL ITUDE* ) 

DO 37 K = l * N SE T 

00 37 KK=1 , L 

XX! K»KK) =AMA3 !K,KK) 

37 CONTINUE 

GO TO 36 
34 WRITE!/, 9) 

9 FORMAT! IX, ' PHASE ANGLE* ) 

00 38 K = 1 , N SE T 

00 38 KK=1,L 
XX!K,KK)=AARG!K,KK) 

38 CONTINUE 

36 CONTINUE 

X2=2.3 

00 12 KJ*1»NSET 
CALL FR0TC-2,X2, i, 351 
CALL POINTCKJ ) 

CALL FCHAR! X2, 1.0 ,0.075,0, 075, SII 
CALL FCHAR! X2, 1.25, 0. 1,0* 1, SI 1 
WRITE! 7, 111 KJ 
FORMAT! IX,* SET* ».I2J 
X2=X2-,15 


II 
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CONTINUE 
TMA X=XX ! 1,1} 

TM1 N*XX( 1 * 1 1 
00 2258 K=1,NSET 
L>0 2258 KK= 1, L 

IF ( XX (K,KK) -TMA x) 22 63,2263,2261 
2263 I F { TMI N-XX'l K , KK } } 22 58, 2 26 8 , 21 o2 
2261 TMAX=XX ( K »KK) 

GO TO 2258 
2262 TM1N=XX(K,KK) 

2288 CONTINUE 

IF{ MH-1 12578, 25 79,2 578 
2579 Wfti TE ( 1 » 2580} THAX 

2580 FOR MAT ( IX, 'MAX. VALUE OF AMPLITUDE **,£12.5} 
WRITE! 1,25831 THIN 

2583 FORMAT (lx, * MIN. VALUE OF AMPLITUDE **,£12.55 
GO TO 2582 

2578 WRITE! i, 2581) TMAX 

2581 FORMAT (IX, ’MAX. VALUE OF PHASE-ANGLE *• ,E 12.5) 

WR 1 1 £ ( 1,2584) THIN 

2584 FORMAT! IX, «MIN. VALUE OF PHASE-ANGLE =*,£12.5) 
2582 CONTINUE 

IK* 0 

SC= { TMAX-T M IN )/ 6 . 

DO 2280 1=1,7 
AX* I -1 

CALL F CHAR (AX, .8, SI) 

AA=TMIN+SC*AX 
WRITE! 7,28JAA 
28 FORMAT ( F7. 2 ) 

2280 CONTINUE 

CALL FPLOT !-l »0,» 0. 5 
AC= 1« i SC 

CALL SCALF!A:,1,,TMIN,0.) 

DO 2290 I=I,NSET 
IK* IK+l 

G '00 2300 J * 1 , NN V 
X*XX(I,J) 

Y=FLOAT l J-l ) 

CALL FPLOT ! -2 ,X ,-Y) 

CALL POINT !IK) 

2300 CONTINUE 

CALL FPLOT! 1,0. ,0.) 

2290 CONTINUE 

30 X=TMAX+SC*2. 

CALL FPLOT! 1,X,~9.3S) 

MM* MM- 1 

GO TO 40 . ;v ? ' W. 

31 WRITE! 1,931) 

WRI T£t J, *930) 

930 FORMAT!//) 

931 FORMAT { iX»50f iH*) ) 

RETURN. i'Vv£tv 

END 



// FOR DECOD 

SUBROUTINE DECGDUCODY, JZ.ITOP) 

C*** ************** ***!»[ ******** ***#*♦*** ******************* ************** 
C THE FOLLOWING ARRAYS ARE ASSOCIATED WITH THE NETWORK 
C CHARACTERISTICS 9SPT, AND MTO {DEFINED IN PROGRAM MAIN -1? 

DIMENSION I TOP {401 

DIMENSION KONS { 8 ) » KODI ( 8 ) , St MBL ( 8 ) , KODF (8) 

DIMENSION MSORTj 5) ,< SORT { 40 ) 

oi mens i on symbuoo) ,konso{ 3 j) ,nest'< 30 > 

01 Me NS I ON NFIRSt 30) »NLAST { 30) , I XP Q‘i { 30 ) , WE 1 GT ( 30) 

*♦ if if. If, if. -it. 3§L$p 

COMMON NBN,NBG»NTO,NSPT,NEXPS,NPAC,NRI , NEON, NR S 
COMMON NNGtNSPTU,N8TG 

COMMON NOD, NO B, KB AS I , LI STG,LISTC,LI STP 
COMMON NIN, NDUT,NODA»NODB 

COMMON NFIRSjNLAST, I XPON, WE IGT , SYMBU ,KCNSO, NEST, LIST 
COMMON KODI ,KON S, KO DF , SEMBL , MSORT , K SORT 
COMMON LIL,KIK,KOO,I Z 
COMMON NCI 
DATA FB/' FB*/ 

I Z = 3 ' 

■ M-sKBASI** l 
00 3 J=i,KOO 

CALL KAND( KODY ,M , I PO WE, 1 ) 

I c{ I pouF } 3.3.? 

2 I F { Sfc M8L( J ) + FB ) 9082, 4 , 9082 
9082 CONTINUE 

IZ=IZ+1 

IF UZ-NSPT-I) 1371, 1370, 1370 

1370 WRIT t { 1,1372) 

1372 FORMAT {IX,* NO. 0= SYMBOLS PER TERM EXCEEDS OUTPUT-INCREASE » 

1 DIMENSIONS CONTAINING NSPT*) 

1371 CONTINUE 

KQDF{ IZ ) “IPOWE 
KODI IIZ)=J 
GO TO 3 
4 1T0P{JZ)=1 

3 K0DY=KQDY/B8ASI 


RETURN 

END 



// FOR ARRAY 

SUBROUTINE ARRAYf JS IG, XCON, JXPO, 3K00,PCLY) 
DIMENSION NFIRSt 30) ,NLA$T(3G) tIXPOMt 30)» WEIGTt 30) 
DIMENSION SYMBUI30) ,KDN$0i30)*NEST{ 30) 

DIMENSION POLY (5,40) 

0 1 ME NS I ON M SORT! 5 J »< SORT ( 40 ) 



DI KfiMS'I ON KONS ( 8 } » K3 0 I ( 8 ) , SEMBL ( 8 ) , KODF ( 8 } 

COMMON NBN»NBGtNTO,NSPT»NEXPS*NPAC»NRI *NEON,NRS 
COMMON NNGfNSPTUt N8TG 

COMMON NOD* NO Bv KBASI f LI STG*L I STC ill STP 
COMMON NIN, NOUT«NQOAtNODB 

COMMON NF IRS* NL AST, I XPON, WEIOT,SYMtJU»K CNSO, NEST *L I ST 
COMMON KODI ,KONS,K3DF,SEM3L,MSORT»KSORT 
COMMON L I L » K IK *KGO ,1 Z 
COMMON NCI 

C* ******* *********** ************************* *************************** 
C THE FOLLOWING ARRAYS ARE ASSOCIATED WITH THE NETWORK 
C CHARACTERISTICS NTO , AND NEXPS ( DEFINED IN PROGRAM MAIN-1) 

MMX = 0 

NNX = 0 ' 

IF { K IK- 1 ) 3,22* 3 
3 MMU=KIK-1 

00 2 HM*1,MMU 
MMX=HMX+1 

IF CJXPO-MSORT (MM) ) 2,10*2 
2 CONTINUE 
22 MSORT ( KIK J = J XPO 
MHX=KIK 
KIK*KUC* l 

IF ( K1K-NEXPS-1) 1386,1385*1385 

1385 WRITE! 1* 1387 ) 

1387 FORMAT { IX,* S-POWER EXCEEDS L+M+T-+NC-EASE D+MENS+QNS * 

/ CONTAINING NEXP S* ) 

1386 CONTINUE 

10 IF (LIL-1) 11,24,11 

11 NNU=L1L-1 

DO 12 NN*1,NNJ 
NMX=NNX+1 

IF ! 4K0Q-KSQRT CNN J ) 12,20,12 

12 CONTINUE 

24 KSORT(LIL)=JKOD 
NNX» Ll L 
ULHIIH 

IF { LlL-NTO-1 ) 1367, 1365,1365 

1365 WRITE Cl, 1366) 

1367 CONTINUE 

1366 FORMAT IIX,' NO. OF TERMS IN OUTPUT EXCEEDS LIMIT-INCREASE 
1 DIMENSIONS CONTAINING NTO*) 

20 POLY (MMX, NNX ) = PO L Y (M MX , NNX ) + XC ON* t -1 * J * *J SI Q 
RETURN 

END 


// FOR ARRAL 

SU8R0UTI N€ ARRAL ( JS IG, XC0N, JXPO,. 

DIMENSION HFIRSUO) ,NLAST(30) , IXPONC 30 1,WE1GTC30* 
OIMtNSION SYM8U (30) ,KQMSQ( 30) .NESTf 30> 

DIMENSION POLY (5,40) v' : 

DIMENSION MS0RTI5T ,X SORT 1 40) 

""T 



DIMENSION KONS(S) ,KQDKB J tSEMSUgJ «K30F(8I 
COMMON N8N t NB G » NT 0, N SPT , ME X P S , HP AC » NR I , NEON » NR S 
COMMON NNG,NSPTU*NBTG 
COMMON NOD, NOB, KB AS I ,Lt STG , L I STC » L I STP 
COMMON NIN,N3UT,NQDA,N3DB 

COMMON NFIRS,NLAST» IXPON,weiGT, SYMBU.KGNSO, NEST* LIST 
COMMON KQO I V XQNS,K3QF,S£N8L,MS0RT,KS0RT 
COMMON LIL,KIK,KOO,I L 
COMMON MCI 

£#**** a*#** ****$#*$*# ****** ******** ****************4^ ft ********* **$$**«*#* 

C THE FOLLOWING ARRAYS ARE ASSOCIATED WITH THE NETWORK 
C CHARACTERISTICS NTO, AND NEXPS {DEFINED IN PROGRAM MAIN-U 
MMX - 0 

NNX*0. 

IF { K IK-1 ) 3,22,3 
3 MMU=K1K-1 

DO 2 MM- l , MMU 
MMX=MMX+ I 

IF { JXPO-MSQRT (MM) 1 2,10,2 
2 CONTINUE 
22 MSORT {KI K) =JXPQ 
MMX=KIK 
KIK=KIK+1 

IF {KIK-NEXPS-n 138 6, 13 8 5,13 8 5 

1385 WRIT c ( 1 , 1387 ) 

1387 FORMAT { IX, « S-PDWER EXCEEDS L+M+T-+NC-EASE D*MENS+QNS , 

/ CONTAINING NEXPS* ) 

1386 CONTINUE 

10 IF < LIL-1 ) 11,24,11 

11 NNU=LIL-1 

DO 12 NN=1 , NNU 
: NNX=NNX+1 

IF ( JKOD-KSORT CNN) ) 12,20, 12 

12 CONTINUE 

24 KSQRTtUU*JKOD 
NNX-LIt. 

UULIL+1 

IF (lR-NTO-1) 136 7, 1365,1365 

1365 WRITE Cl, 1366) 

1367 CONTINUE 

1366 FORMAT C 1 X » * NO, OF TERMS IN OUTPUT EXCEEDS LIMIT-INCREASE , 
l DIMENSIONS CONTAINING NTO*) 

20 POLY l MMX, NNX I* POLY (MMX, NNX ) + XCON*C -1 . )**JSIG 
RETURN 
END 


ft FOR I AMO 

SUBROUTINE IAMBI MX »MX, MN, IFiAG ) 

C THIS SUBROUTINE FINDS THE * AND* OPERATION. OF 

C TWO DECIMAL NUMBERS 

DIMENSION SYMBUC 30) ,KOMSO< 30) ,NEST(30* 

DIMENSION KONSC8},iC3DI C8J#SEMBMi):*XODF'(Sl ' v 
DIMENSION MSORTC 5) ,<SCRT (40) 

DIMENSION MFIRSC 30) , NL AST ( 30 } , I XP ON ( 30 ) , WE I GT ( 30 > 




COMMON NBN#NBG*-NTQ, NsPT»NEXP$,NPAC f NRI f NEGN*NHS 
COMMON 4N6,NSPTU*N8TG 
COMMON NOD, NOB, K6AS I»LISTG, LI STC , L IS TP 
COMMON NINt NOllT iN 00 A , MO DB 

COMMON MF IRS* ML AST, I XPOM, HE I3T,SYM8J ,KCNSO, NEST ,1 1ST 
COMMON KOOI ,KQNS, K30F, SEMBL »M50RT , K$OR T 
COMMON ULtKIK ,KOO,U 

, ■ ' COMMON NCI 
, ■ M=MX . 

N*NX 

I F C I FLAG I 908 3, 5,90 83 
9083 CONTINUE 
K8A=KBA$I 
03 6 K= I , 64 
KBA=K8A/2 
IF(KBA-l) 6, 8,6 
6 CONTINUE 

8 LAST=K. 

GO TO 7 
5 LAST=25 

C 26 IS THE MAXIMUM N3 . OF NODES IN SFG. CHANGE AS NEEDED 

7 MN*b 

,nthtw*i 

00 10 1=1, LAST 
NTHTW>NTHTH*2 
NTEMP=N/2 
NTEMP=HTEMP*2 
IF(N-NTEMP) 3,1,3 

3 MTEMP=M/2 
MTEMP=MTEMP*2 

I F I M-MTEMP J 2, 1,2 
2 MN*MN+NTHTW/2 
I F ( I FLAG) 1,4,1 
1 M*M/2 

N=N/2 

10 CONTINUE 

4 RETURN 
. END 




COMMON KUDI ,*CWS, KOOf , SEMBL ,M«,ORT ,RSORT- 
COMMON L I L »K IK i KOO f I Z 

COMMON NCI 
M=MX 

N “ ' i X 

1 F { i FLAG ) 908 3, 3,9083 
9083 CONTINUE 
KBA.s.KBASI 
DO 6 K= 1 » 64 
K8A=K8A/2 
I F { KBA- 1)6,8, 6 
6 CONTINUE 

8 L4ST=K 

GO TO 7 
5 L AST=25 

C 25 IS THE MAXIMUM NO , OF NODES IN SFG. CHANGE AS NEEDED 

7 MN=0 

NTHTW*L 

DO 10 1=1, LAST 
NTHTW=NTHTW*2 
NTE MP-N/2 
NTEMP=NTEMP*2 
I F ( N-NTEMP } 3, 1,3 

3 MTE MP=M/2 
MTEMP=MTEMP*2 

I F ( M-MTfc MP J 2, 1,2 
2 MN*MN+NTHTW/2 
IF t IFLAG) 1,4,1 

1 M=M/2 ' ■ . , 

N=N/2 

10 CONTINUE 

4 RETURN 

" ■ END 0':Y'.' 



